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Preface 


In olden days, the author of a critical edition would give his manuscript - 
often literally handwritten - to a publisher, who would select a fine typesetter 
to transform the work into a complex and beautiful book. The work might 
contain several scripts, such as Latin, Greek, and Hebrew, and it would have a 
particularly complicated and specialized layout. But with widespread changes 
in the modalities of higher education and of book production, the skills of 
typesetting critical editions have now almost completely vanished, and this 
scenario just does not exist any more. Today, an author or publisher with a 
critical edition on his hands has, until now, had nowhere to turn. 

The following programs, written in the TpX macro language, solve this 
special set of problems in document formatting. If you don’t need to make 
a critical edition, then you can happily live the rest of your life without ever 
having to think about EDMAC. But if you do need to create a critical edition, i.e, 
something that looks like the examples at the end of this book, then your need 
for something like EDMAC will be acute. 

The connected and rather thorny problems which EDMAC solves are, to our 
knowledge, not soluble by any other text-processing system. Several word- 
processors will do automatic line numbering, but none will allow you to use 
line numbers to reference footnotes. Some special word-processors will allow 
up to three separate layers of notes at the bottom of each page, but none 
will allow the five or more which EDMAC offers, and none offers the choice 
of having footnotes in multiple columns and paragraphs. 

For these and other reasons, EDMAC does a unique job. But perhaps EDMAC 
inherits some of the thorniness of the problems it solves. In fact, the logic of 
EDMAC is straightforward once mastered, and the interface is flexible and key 
commands can be redefined or renamed to fit your particular project as closely 
as possible. But to get the best from EDMAC, you do need to be comfortable 
with your computer’s operating system, and with TgX. In other words, EDMAC 
can be demanding to use; but then, it is also very rewarding. 

The interface of EDMAC was designed and refined at about the same time 
that the Text Encoding Intitative was active in designing SGML definitions 
for critical editions and similar types of document. While the two projects are 
separate, they are aware of each other and in some respects complement each 
other, EDMAC providing a method for the output of complex texts that have 
been prepared with TEI/SGML markup. 

Finally, we have the pleasant opportunity of thanking all those who have 
helped and advised us in writing EDMAC. EDMAC could not exist without the 
foundation of TgX, so our first thanks goes to TgX’s creator, Don Knuth. 
We also thank Wayne Sullivan, one of the early implementors of TgX on the 
Intel microprocessor, who as both a demanding user and contributor to the 
programs has made EDMAC much more useful than it would have been without 
his sophisticated contributions. Ron Whitney read the macros carefully, 



and suggested several important improvements and optimizations, as well as 
working on the production of the book. We are very grateful to the early 
users of EDMAC, whose several improvements and corrections to the code are 
mentioned in the log at the beginning of the edmac .doc file. Sebastian Rahtz 
has done the final work of typesetting and publishing the book on behalf of 
the TpX Users Group. 

We should also like to thank the TgX Users Group itself for publishing 
EDMAC as a book. At the time of writing, electronic publications and programs, 
especially in the Humanities, have not been adequately integrated into the 
process of professional accreditation and evaluation. This publication gives 
us an opportunity to gain credit for this work in the traditional, publication- 
oriented academic circles in which we are both employed. 

Finally, we hope this book will help to bring EDMAC and TpX to the attention 
of text editors who would not otherwise have become aware that there existed 
a solution to their problems. 


John Lavagnino 
Dominik Wujastyk 
June 1996 
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Introduction 


1.1 Overview 

The EDMAC macros, together with TjgX, provide several important facilities for formatting 
critical editions of texts in a traditional manner. Major features include: 

• automatic stepped line numbering, by page or by chapter; 

• sub-lineation within the main series of line numbers; 

• variant readings automatically keyed to line numbers; 

• multiple series of footnotes and endnotes; 

• block or columnar formatting of footnotes. 

EDMAC allows the scholar engaged in preparing a critical edition to focus attention wholly 
on the task of creating the critical text and evaluating the variant readings, text-critical notes 
and testimonia. TpX and EDMAC will take care of the formatting and visual correlation of all 
the disparate types of information. 

EDMAC works together with the Plain TpX format, and with the exception of footnote- 
related commands, virtually all plain TpX commands are available for use in the normal way. 
Other languages and fonts (Sanskrit, Greek, Russian, etc.), 1 can be incorporated. 

While EDMAC can be used “out of the box”, with little or no customization, you may also 
go to the other extreme and view it as a collection of tools. Critical editions are amongst the 
most idiosyncratic of books (like their authors), so we have made EDMAC deliberately bland in 
some ways, while also trying to document it reasonably well so that you can find out how to 
make it do what you want. 

This documentation assumes the “manual” use of EDMAC. But EDMAC has also successfully 
been used (with TpX, of course) as the formatting engine or “back end" for the output of an 
automatic manuscript collation program. COLLATE runs on the Apple Macintosh, can collate 
simultaneously up to a hundred manuscripts of any length, and provides facilities for the 
scholar to tailor the collation interactively. 2 

Another package which mediates between you as editor and the raw EDMAC codes is Bernt 
Karasch’s “Critical Edition Typesetter” (CET). CET provides a menu-driven front end for 
EDMAC and the other programs connected with TgX. CET does not do any collation: you still 
have to type the edition and the apparatus yourself. 3 

This book contains a general description of how to use EDMAC (in section 2); the complete 
source code for the package, with extensive documentation (in sections 3 through 12); a series 
of examples (in Appendix A); and an Index to the source code (in Appendix B). We do not 
suggest that you need to read the source code for this package in order to use it; we provide 
this code primarily for reference, and many of our comments on it repeat material that is 
also found in section 2. But no documentation, however thorough, can cover every question 
that comes up, and many can be answered quickly by consultation of the code. On a first 
reading, then, you should skip from the general documentation of section 2 to the examples 
in Appendix A, unless you are particularly interested in the innards of EDMAC. 


‘See, e.g., TUGboat 9 (1988), pp. 131-151. 

“COLLATE was created by Peter Robinson at The Computers and Variant Texts Project, Oxford University 
Computing Service, 13 Banbury Road, Oxford 0X2 6NN, England. Email: peterr@vax.oxford.ac.uk. See 
http://www.shef.ac.uk/uni/proj ects/ctp/Main/collate.html. 

3 For more details, see http ://s.top .ruhr-uni-bochum.de/cet .htm. 
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1 Introduction 


1.1.1 Availability 

The EDMAC macros are available from CTAN, the Comprehensive TpX Archive Network. 4 
And EDMAC has it’s own home page on the world wide web: see http://www.ucl.ac.uk/ 
"ucgadkw/edmac.html. 


1.2 History 

The original version of EDMAC was TEXTED. TEX, written by John Lavagnino in late 1987 and 
early 1988 for formatting critical editions of English plays. 

John passed these macros on to Dominik Wujastyk who, in September-October 1988, 
added the footnote paragraphing mechanism, margin swapping and other changes to suit his 
own purposes, making the style more like that traditionally used for classical texts in Latin 
and Greek (e.g., the Oxford Classical Texts series). He also wrote some extra documentation 
and sent the files out to several people. This version of the macros was the first to be called 
EDMAC. 

The present version was developed in the summer of 1990, with the intent of adding 
necessary features, streamlining and documenting the code, and further generalizing it to 
make it easily adaptable to the needs of editors in different disciplines. John did most of 
the general reworking and documentation, with the financial assistance of the Division of the 
Humanities and Social Sciences, California Institute of Technology. Dominik adapted the 
code to the conventions of Frank Mittelbach’s doc option, and added some documentation, 
multiple-column footnotes, cross-references, and crop marks. 5 A description by John and 
Dominik of this version of EDMAC was published as “An overview of EDMAC: a Plain T]rX 
format for critical editions”, TUGboat 11 (1990), pp. 623-643. 

From 1991 through 1994, the macros continued to evolve, and were tested at a number of 
sites. We are very grateful to all the members of the (now defunct) edmacSmailbase .ac.uk 
discussion group who helped us with smoothing out bugs and infelicities in the macros. 
Ron Whitney and our anonymous reviewer at the TUG were both of great help in ironing 
out last-minute wrinkles, while Ron made some important suggestions which may help to 
make future versions of EDMAC even more efficient. Wayne Sullivan, in particular, provided 
several important fixes and contributions, including adapting the Mittelbach/Schopf “New 
Font Selection Scheme” for use with Plain TgX and EDMAC (see p. 18 below). Another 
project Wayne has worked on is a DVI post-processor which works with an EDMAC that has 
been slightly modified to output \specials. This combination enables you to recover to 
some extent the text of each line, as ASCII code, facilitating the creation of concordances, an 
index verborum, etc. 

At the time of writing, we are pleased to be able to say that EDMAC is used for real-life 
book production. Several interesting editions have appeared in print or are underway, such as 
the Latin texts of Euclid’s Elements , 6 an edition of the letters of Nicolaus Copernicus, 7 8 Simon 
Bredon’s Arithmetical a Latin translation by Plato of Tivoli of an Arabic astrolabe text, 9 a 

4 See http://jasper.ora.com/ctan.html/. 

This version of the macros was used to format the Sanskrit text in volume I of Metarules of Paninian Grammar 
by Dominik Wujastyk (Groningen: Forsten, 1993). 

6 Gerhard Brey used EDMAC in the production of Hubert L. L. Busard and Menso Folkerts, Robert of Chester's (?) 
Redaction of Euclid's Elements, the so-called Adelard II Version, 2 vols., (Basel. Boston, Berlin: Birkhauser, 1992). 

7 Being prepared at the German Copernicus Research Institute, Munich, under the general editorship of Heribert 
M. Nobis and Menso Folkerts; volume 1 has appeared as Documenta Copernicana: Briefe (Texte und Ubersetzungen), 
edited by Andreas Kiihne, et al. (Berlin: Akademie Verlag, 1994). 

8 Being prepared by Menso Folkerts et al., at the Institut fiir Geschichte der Naturwissenschaften in Munich. 

'Richard Lorch, Gerhard Brey, Stefan Kirschner, and Christoph Schoner, 'Ibn-as-Saffars Traktat tiber das 
Astrolab in der Ubersetzung von Plato von Tivoli,' in Cosmographica et Geographica, ed. Bernhard Fritscher and 
Gerhard Brey, (Miinchen: Institut fiir Geschichte der Naturwissenschaften, 1994), vol. 1, pp. 125-180. 



1.3 New to TgX? 


Latin translation of part II of the Arabic Algebra by Abu Kamil Shuja’ b. Aslam, 10 the Latin 
Rithmachia of Werinher von Tegernsee, 11 a middle-Dutch romance epic on the Crusades, 12 
Johann Widmann’s German arithmetic of 1489, 13 a seventeenth-century Hungarian politico- 
philosophical tract, 14 an anonymous Latin compilation of Christian sermons from Hungary 15 
the collected letters and papers of Leibniz, 16 Theodosius’s Spherics, the German Algorismus 
of Sacrobosco, the Sanskrit text of the Skandapurana, 17 and the English texts of Thomas 
Middleton’s collected works 13 , as well as the editions by Wayne Sullivan, Mac Pigman, and 
Dominik Wujastyk which are illustrated in Appendix A. 

1.3 New to Tjt;X? 

If you are coming to EDMAC primarily as the editor of a text, but have not thought about using 
JgX before, you should find someone to help you get started with the program. It is not really 
hard, but there are some points where a bit of good advice might save you some time. TgX 
is available in versions that run on most computers, and many implementations of TgX are 
available free, or at a very low cost. The output of TgX can be printed without change on 
most printers and phototypesetting machines. TgX produces very high quality typesetting, 
and is particularly strong in the areas of typesetting complex mathematical formulae and 
multilingual texts. 

The TgX Users Group (TUG) can advise you on all matters related to TgX, and publishes 
a journal about TgX, TUGboat. If you are not already a member of the group, it is well worth 
joining. The address is: 

TgX Users Group, 

1850 Union Street, Suite 1637, 

San Francisco, CA 94123 
USA. 

Email: tugOtug. org 

Home page: http: //www. tug. org/. 

This document does not include a TgX tutorial. Recent years have seen the publication 
of numerous excellent books on how to learn and use TgX, and the main implementations of 
TgX, such as emTgX by Eberhard Mattes, come with first class documentation. In brief, when 
you use EDMAC the main text to be edited is typed into a computer file as a plain text, with 
blank lines marking paragraph breaks, and with all formatting, accented characters, and other 
special requirements indicated by TgX macros. The TpXbook 19 by Donald E. Knuth gives 
guidelines on various formatting commands for headings, page size, etc., and is a necessary 
reference for users of EDMAC. 


10 Richard Lorch, 'Abu Kamil on the Pentagon and Decagon’ in Vestigia Mathematics, ed. M. Folkerts and J. P. 
Hogendijk (Amsterdam, Atlanta: Rodopi, 1993). 

1 Vlenso Folkerts, ‘Die Rithmachia des Werinher von Tegernsee’, ibid. 

12 Geert H. M. Claassens, De Middelnederland.se Kruisvaartromans, (Amsterdam: Schiphower en Brinkman. 
1993). 

li Beliend vnd htipsch Rechnung vff alien Kauffmanschafften, being prepared at the University of Heidelberg by 
Barbara Gartner. 

14 Emil Hargittay, Csdky Ish’dn: Politico philosophiai Okoskodds-szerint void rendes eletnek pelddja (1664-1674 ) 
(Budapest: Argumentum Kiado, 1992). 

15 Sennones Compilati in Studio Gererali Quinqeecclesiensi in Regno Ungarie, ed. Eduardo Petrovich and Paulus 
Ladislaus Timkovics (Budapest: Akademiai Kiado, 1993), typeset, as was the previous book, by Gyula Mayer. 

16 Leibniz, Sdmtliche Schriften und Briefe, series I, III, VII, being edited by Dr. H. Breger and Dr. N. Gadeke at 
the Leibniz-Archiv, Niedersachsische Landesbibliothek, Hannover. 

17 Being prepared at the University of Groningen by Hans Bakker, Roelf Adriaensen, and Harunaga Isaacson. 
lg The Collected Works of Thomas Middleton, Gary Taylor, general editor, and John Lavagnino, electronics editor 
(Oxford: Oxford University Press, forthcoming). 

'^Reading, MA: Addison-Wesley, 1984. 
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2 HOW TO USE EDMAC 


2 How to use EDMAC 

2.1 Introduction 

A document that uses EDMAC will use many standard TpX commands, along with special 
EDMAC commands. This chapter describes the usage of all the EDMAC commands; the name of 
each will be printed in the margin as it is introduced. We assume a basic familiarity with TpX 
conventions; if you are not conversant with TpX, you should be able to form an idea of the 
specific capabilities of EDMAC from this account, but (we repeat) you will not be able to use 
EDMAC without first learning some TgX. 

All you need to do to invoke EDMAC is to include the line \input EDMAC.DOC at the top 
of your document, and to have the file EDMAC. DOC somewhere on your disk that is “visible” 
to TpX for input. It takes only a few seconds for TpX to read EDMAC. DOC, but if you are going 
to use it frequently, as will certainly be the case if you are doing a real edition, you will find 
it convenient to compile it into a TpX format file, loading it after PLAIN.TEX and any other 
private macros. 

EDMAC is a three-pass system, like HTgX. 20 Although your textual apparatus and line 
numbers will be printed even on the first run, it takes two more passes through TpX to be sure 
that everything gets to its right place. Any changes you make to the input file may similarly 
require three passes to get everything to the right place, if the changes alter the number of 
lines or notes. EDMAC will tell you that you need to make more runs, when it notices, but it 
does not expend the labor to check this thoroughly. If you have problems with a line or two 
misnumbered at the top of a page, try running TpX once or twice more. 

A file may mix numbered and unnumbered text. Numbered text is printed with marginal 
line numbers and can include footnotes and endnotes that are referenced to those line numbers: 
this is how you’ll want to print the text that you’re editing. Unnumbered text is not printed 
with line numbers, and you can’t use EDMAC’s note commands with it: this is appropriate for 
introductions and other material added by the editor around the edited text. 

The choice of editing program The careful choice of a good text editing program can make 
the preparation of texts for EDMAC much easier. In common with most TpX documents, a file 
formatted with EDMAC macros will have many sets of braces, often nested, and often enclosing 
material that will end up at the bottom of the page as notes. Some word processors or editors 
have the ability to “fold" text out of sight. This means that on the computer screen a particular 
string or passage can be hidden, perhaps behind a symbol. Most modern word-processors 
handle footnotes in this way. When you want to type a note, a window opens up; you type 
the note, and the window closes, leaving a highlighted number to remind you that a note is 
there. There are several folding editors available commercially and in the public domain, 
which would allow you to see only the main text of your work on the computer screen, while 
the notes and variants, etc., would be hidden from view. 21 GNU Emacs has an outline mode 
which could probably be modified to work like this. (It is important, of course, that the editor 
doesn’t pepper your text with unwanted control codes, or that if it does, they can easily be 
removed.) 

Another helpful feature to look for in your editing program is syntax-highlighting. This 
means that the editor displays TpX codes in a different colour from the textual matter. This 
is enormously helpful in keeping clear what is what: you eye easily sees opening and closing 
braces, text and note commands, etc. One editor which combines this and other valuable 
features, as well as being available for most operating systems, is JED, by John E. Davis. 22 

20 Oh yes it is, if you have a table of contents, lists of figures, etc. 

21 One cross-platform public domain folding editor is "Andys Editor" which is available from the well-known 
Hobbes Internet site, http://hobbes.nmsu.edu/os2/editors/ as the file ae .zip. 

22 JED can be retrieved by ftp from ftp: //space .mit. edu/pub/davis/j ed/. 
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2.2 General markup 


The CET system mentioned above (p. 7 uses a simplified set of tags for marking up the text, 
and includes a pre-processor which turns these into actual EDMAC markup. 

An editor or system like this can be extremely helpful in keeping your text in good order, 
and allowing you to concentrate on the edition. 


2.2 General markup 


Each section of numbered text must be preceded by \beginnumbering and followed by 
\endnumbering: 


\beginnumbering 

{text) 

\endnumbering 

The \beginnumbering macro resets the line number to zero, reads an auxiliary file called 
{filename). {nn) (where filename is the name of the main input file for this job, and nn is 
1 for the first numbered section, 2 for the second section, and so on), and then creates a 
new version of this auxiliary file to collect information during this run. The first instance of 
\beginnumbering also opens a file called (filename ). end to receive the text of the endnotes. 
\endnumbering closes the {filename). {nn) file. 

If the line numbering of a text is to be continuous from start to end, then the whole text 
will be typed between one pair of \beginnumbering and \endnumbering commands. But 
your text will most often contain chapter or other divisions marking sections that should 
be independently numbered, and these will be appropriate places to begin new numbered 
sections. EDMAC has to read and store in memory a certain amount of information about 
the entire section when it encounters a \beginmimbering command, so it speeds up the 
processing and reduces memory use when a text is divided into a larger number of sections 
(at the expense of multiplying the number of external files that are generated). 

Within a numbered section, each paragraph of numbered text must be marked using the 
\pstart and \pend commands: 


\pstart 

(paragraph of text) 

\pend 

Text that appears within a numbered section but isn’t marked with \pstart and \pend 
will not be numbered. 

The following example shows the proper section and paragraph markup, and the kind of 
output that would typically be generated: 


\beginnumbering 

\endnumbering 


\pstart 

\pend 


11 



2 HOW TO USE EDMAC 


\beginnumbering 
\pstart 

This is a sample paragraph, with 
lines numbered automatically. 

\pend 

\pstart 

This paragraph too has its 
lines automatically numbered. 

\pend 

The lines of this paragraph are 
not numbered. 

\pstart 

And here the numbering begins 
again. 

\pend 

\endnumbering 

\autopar You can use \autopar to avoid the nuisance of this paragraph markup and still have every 
paragraph automatically numbered. The scope of the \autopar command needs to be limited 
by keeping it within a group, as follows: 

\begingroup 9 

\beginnumbering 

\autopar ^ 

4 

A paragraph of numbered text. 

Another paragraph of numbered 
text. 

\endnumbering 
\endgroup 

\autopar fails, however, on paragraphs that start with a { or with any other command that 
starts a new group before it generates any text. Such paragraphs need to be started explicitly, 
before the new group is opened, using \indent, \noindent, or \leavevmode, or using 
\pstart itself. 23 

\pausenumbering EDMAC stores a lot of information about line numbers and footnotes in memory as it goes 
\resumenumbering through a numbered section. But at the end of such a section, it empties its memory out, 
so to speak. If your text has a very long numbered section it is possible that your TpX may 
reach its memory limit. There are two solutions to this. The first is to get a new TpX with 
increased memory. There are several BigTpX implementations easily available today, both 
commercial and public-domain, depending on your operating system. The second solution 
is to split your long section into several smaller ones. The trouble with this is that your 
line numbering will start again at zero with each new section. To avoid this problem, we 
provide \pausenumbering and \resumenumbering which are just like \endnumbering 
and \beginnumbering, except that they arrange for your line numbering to continue across 
the break. Use \pausemimbering only between numbered paragraphs: 

- ’For a detailed study of the reasons for this restriction, see Barbara Beeton, "Initiation rites”. TUGbocit 12 (1991), 
pp. 257-258. 


A paragraph of numbered 
text. 

Another paragraph of 
numbered text. 


1 This is a sample paragraph 

2 with lines numbered 

3 automatically. 

4 This paragraph too 

5 has its lines automatically 

6 numbered. 

The lines of this paragraph 
are not numbered. 

7 And here the numbering 

8 begins again. 
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2.3 The apparatus 


\beginnumbering ^ 

\pstart 

Paragraph of text. 3 

\pend 

\pausenumbering 

\resumenumbering 
\pstart 

Another paragraph. 

\pend 

\endnumbering 
\bye 

We have defined these commands as two macros, in case you find it necessary to insert 
text between numbered sections without disturbing the line numbering. But if you are really 
just using these macros to save memory, you might as well say 

\def\memorybreak{\pausenumbering\resumenumbering} 


Paragraph of 
text. 

Another paragraph. 


and say \memorybreak between the relevant \pend and \pstart. 


2.3 The apparatus 

Within numbered paragraphs, all footnotes and endnotes are generated by forms of the \text 
macro: 


\t ext {(Jemma )} { commands ) / 

The {lemma) argument is the lemma in the main text: \text both prints this as part of 
the text, and makes it available to the {commands) you specify to generate notes. The / at the 
end terminates the command; it is part of the macro’s definition so that spaces after the macro 
will be treated as significant. 

For example: 


I saw my friend \text{Smith} 
\AfootnotefJones C, D.}/ 
on Tuesday. 


1 I saw my friend 

2 Smith on Tuesday. 
2 Smith] Jones C. D. 


The lemma Smith is printed as part of this sentence in the text, and is also made available 
to the footnote that specifies a variant, Jones C, D. The footnote macro is supplied with the 
line number at which the lemma appears in the main text. 

The {lemma) may contain further \text commands; this is the other reason why \text’s 
arguments are terminated by /. Nesting makes it possible to print an explanatory note on a 
long passage together with notes on variants for individual words within the passage. For 
example: 


\text{I saw my friend 

\text{Smith}\AfootnotefJones 
C, D.}/ on Tuesday.} 

\BfootnotefThe date was 
July 16, 1954.} 

/ 


1 I saw my friend 

2 Smith on Tuesday. 

2 Smith] Jones C. D. 

1-2 I saw my friend 
Smith on Tuesday.] The 
date was July 16, 1954. 


\text 
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2 HOW TO USE EDMAC 


\Afootnote 
\Bfootnote 
\Cfootnote 
\Dfootnote 
\Efootnote 

\Aendnote 
\Bendnote 
\Cendnote 
\Dendnote 
\Eendnote 
\lemma 


\linenum 


However, \text cannot handle overlapping but unnested notes—for example, one note 
covering lines 10-15, and another covering 12-18; a \text that starts in the {lemma) 
argument of another \text must end there, too. (The \lemma and \linemim commands 
may be used to generate overlapping notes if necessary.) 


Commands used in Xtext’s second argument The second argument of the \text macro, 
{commands ), may contain a series of subsidiary commands that generate various kinds of 
notes. 

Five separate series of footnotes are maintained; when all five are used, the A notes appear 
in a layer just below the main text, followed by the rest in turn, down to the E notes at the 
bottom. These are the main macros that you will use to construct the critical apparatus of 
your text. EDMAC provides five layers of notes in the belief that this will be adequate for the 
most demanding editions. But it is not hard to add further layers of notes to EDMAC should 
they be required. 

EDMAC also maintains five separate series of endnotes. Normally, none of them is printed: 
you must use the \doendnotes macro described below (p. 21) to call for their output at the 
appropriate point in your document. 

Sometimes you want to change the lemma that gets passed to the notes. You can do this 
by using \lemma within the second argument to \text, before the note commands. 

Xlemmaf {alternative lemma )} 


The most common use of this command is to 
For example: 

\text{I saw my friend 

\text{Smith}\AfootnotefJones 
C, D.}/ on Tuesday.} 

\lemma{I \dots\ Tuesday.} 

\BfootnotefThe date was 
July 16, 1954.} 

/ 


abbreviate the lemma that’s printed in the notes. 

1 I saw my friend 

2 Smith on Tuesday. 

2 Smith] Jones C, D. 

1-2 I... Tuesday.] 

The date was July 16, 1954. 


You can use \linemim to change the line numbers passed to the notes. The notes are 
actually given seven parameters: the page, line, and sub-line number for the start of the 
lemma; the same three numbers for the end of the lemma; and the font specifier for the lemma. 
As argument to \linenum, you specify those seven parameters in that order, separated by 
vertical bars (the I character). However, you can retain the value computed by EDMAC for any 
number by simply omitting it; and you can omit a sequence of vertical bars at the end of the 
argument. For example, \linenum{ I I I 23} changes one number, the ending page number of 
the current lemma. 

This command doesn’t change the marginal line numbers in any way; it just changes the 
numbers passed to the footnotes. Its use comes in situations that \text has trouble dealing 
with for whatever reason. If you need notes for overlapping passages that aren’t nested, for 
instance, you can use \lemma and \linenum to generate such notes despite the limitations of 
\text. If the {lemma) argument to \text is extremely long, you may run out of memory; 
here again you can specify a note with an abbreviated lemma using \lemma and \linenum. 
The numbers used in \linenum need not be entered manually; you can use the “x-” symbolic 
cross-referencing commands below (p. 21) to compute them automatically. 

Similarly, being able to manually change the lemma’s font specifier in the notes might 
be important if you were using multiple scripts or languages. The form of the font specifier 
depends on the font selection scheme you are using (see section 2.7 below). If you’re using 
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Plain, it is the “font family” number; if you’re using NFSS, it is actually three separate codes 
separated by / characters, giving the family, series, and shape codes as defined within NFSS. 

Changing the names of these commands The commands for generating the apparatus 
have been given rather bland names, because editors in different fields have widely divergent 
notions of what sort of notes are required, where they should be printed, and what they 
should be called. But this doesn’t mean you have to type \Afootnote when you’d rather 
say something you find more meaningful, like \variant. We recommend that you create a 
series of such aliases and use them instead of the names chosen here; all you have to do is put 
commands of this form at the start of your file: 

\let\variant=\Afootnote 
\let\explanatory=\Bfootnote 
\let\trivial=\Aendnote 
\let\testimonia=\Cfootnote 


It is also possible to define aliases for \text, which can be easier to type. You can make 
a single character substitute for \text by saying this: 

\catcode‘\<=\active 
\let<=\text 


Then you might say <{Smith>\variant{Jones>/. This of course destroys the ability 
to use < in any new macro definitions, so long as it remains in effect; hence it should be used 
with care. 

Changing the character at the end of the command requires more work: 

\catcode‘\<=\active 

\def\xtext#l#2>{\text{#l}{#2}/} 

\let<=\xtext 


This allows you to say <{Smith}\Af ootnote{Jones}>. 

Aliases for \text of the first kind shown here also can’t be nested—that is, you can’t use 
the alias in the text that forms the first argument to \text. (See section 6 to find out why.) 
Aliases of the second kind may be nested without any problem. 

2.4 Lineation commands 

EDMAC can number lines by page or by section; you specify this using the \lineation{(flrg)> 
macro, where (arg) is either page or section. You may only use this command at places 
where numbering is not in effect; you can’t change the lineation system within a section. You 
can change it between sections: they don’t all have to use the same lineation system. The 
line-of-section system is EDMAC’s standard setting. 

The marginal line numbers will be printed in the left, right, inner, or outer 
margin, depending on which you specify as argument to the \linenummargin command: 
for example, \linenummargin{inner>. Normally, line numbers appear in the left margin. 
You can change this whenever you’re not in the middle of making a paragraph. 

In most cases, you will not want a number printed for every single line of the text. Four 
TpX count registers control the printing of marginal numbers. \f irstlinenum specifies the 
number of the first line in a section to number, and \linenumincrement is the increment 
between numbered lines. \f irstsublinenum and \sublinenumincrement do the same 
for sub-lines. Initially, all these counters are set equal to 5. 


\lineation 


Minenuiranargin 


\firstlinenum 
Minenumincrement 
\firstsublinenum 
\sublinenumincrement 
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\startsub 

\endsub 


\startlock 

\endlock 


\lockdisp 


\setline 

\advanceline 


\f ootparagraph 
\foottwocol 
\footthreecol 


When a marginal line number is to be printed, there are a lot of ways to display it. You 
can redefine \leftlinermm and \rightlinenum to change the way marginal line numbers 
are printed in the left and right margins respectively; the initial versions print the number in 
font \numlabf ont (described below) at a distance \linemimsep (initially set to one pica) 
from the text. 

2.5 Changing the line numbers 

Normally the line numbering starts at 1 for the first line of a section and steps up by one for 
each line thereafter. There are various common modifications of this system, however; the 
commands described here allow you to put such modifications into effect. 

You insert the \startsub and \endsub commands in your text to turn sub-lineation on 
and off. In plays, for example, stage directions are often numbered with sub-line numbers: 
as line 10.1, 10.2, 10.3, rather than as 11, 12, and 13. Titles and headings are sometimes 
numbered with sub-line numbers as well. 

When sub-lineation is in effect, the line number counter is frozen and the sub-line counter 
advances instead. If one of these commands appears in the middle of a line, it doesn’t take 
effect until the next line; in other words, a line is counted as a line or sub-line depending on 
what it started out as, even if that changes in the middle. 

The \startlock command, used in running text, locks the line number at its current 
value, until you say \endlock. It can tell for itself whether you are in a patch of line or sub¬ 
line numbering. One use for line-number locking is in printing poetry: there the line numbers 
should be those of verse lines rather than of printed lines, even when a verse line requires 
several printed lines. 

When line-number locking is used, several printed lines may have the same line number, 
and you have to specify whether you want the number attached to the first printed line or the 
last, or whether you just want the number printed by them all. (This assumes that, on the basis 
of the settings of the previous parameters, it is necessary to display a line number for this 
line.) You specify your preference using \lockdisp; its argument is a word, either first, 
last, or all. EDMAC initially sets this to first. 

In some cases you may want to modify the line numbers that are automatically calculated: 
if you are printing only fragments of a work but want to print line numbers appropriate to 
a complete version, for example. The \setline and \advanceline commands may be 
used to change the current line’s number (or the sub-line number, if sub-lineation is currently 
on). They change both the marginal line numbers and the line numbers passed to the notes. 
\setline takes one argument, the value to which you want the line number set; it must be 0 
or greater, \advanceline takes one argument, an amount that should be added to the current 
line number; it may be positive or negative. 

2.6 Alternate footnote formatting 

If you just launch into EDMAC using the commands outlined above, you will get a standard 
layout for your text and notes. You may be happy to accept this at the very beginning, while 
you get the hang of things, but the standard layout is not particularly pretty, and you will 
certainly want to modify it in due course. EDMAC provides ways of changing the fonts and 
layout of your text, but these are not aimed at being totally comprehensive. They are enough 
to deal with simple variations from the norm, and to exemplify how you might go on to make 
more swingeing changes. 

All footnotes will normally be formatted as a series of separate paragraphs in one column. 
But there are three other formats available for notes, and using these macros you can select a 
different format for a series of notes. \f ootparagraph formats all the footnotes of a series as 
a single paragraph (see figs. 3, 5 and 7, pp. 85, 94, and 101); \f oottwocol formats them as 


\leftlinenu 
\rightlinenu 
\linenumse 
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separate paragraphs, but in two columns (see bottom notes in fig. 4, p. 91); \f ootthreecol, 
in three columns (see second layer of notes in fig.2, p. 82). Each of these macros takes one 
argument: a letter (between A and E) for the series of notes you want changed. So a text with 
three layers of notes might begin thus: 

\f ootnormalfA} 

\footthreecolfB} 

\f ootparagraphfC} 


This would make the A-notes ordinary, B-notes would be in three columns, and the bottom 
layer of notes would be formed into a paragraph on each page. 

If you use paragraphed footnotes, the macro \interparanoteglue defines the glue 
appearing in between footnotes in the paragraph. It is a macro whose argument is the glue 
you want, and its initial setting is (see p. 67): 

\interparanoteglue{lem plus .4em minus .4em} 


You should set \hsize for the text, and the \baselineskip of the footnotes (this is 
done for you if you use the standard \notef ontsetup), before you call any of these macros, 
because their action depends on those values; too much or too little space will be allotted for 
the notes on the page if these macros use the wrong values. 24 

2.7 Fonts 

One of the most important features of the appearance of the notes, and indeed of your whole 
document, will be the fonts used. Because the demands of critical editions tax the font¬ 
handling system of PLAIN TpX, we provide both that system and an alternative, the New Font 
Selection System (NFSS) developed for FTpX. We will first describe the commands that 
give you control over the use of fonts in the different structural elements of the document, 
especially within the notes, and then in subsequent sections specify how these commands are 
used with each of the font-handling systems. 

(For those who are setting up EDMAC for a large job, here is a list of the com¬ 
plete set of EDMAC macros relating to fonts that are intended for manipulation by the 
user: \endashchar, \fullstop, \headlinefont, \notefontsetup, \notenumfont, 
\numlabf ont, and \rbracket. EDMAC also assumes that \rm has been defined so as to select 
a roman font in the current size, and that some reasonable standard font has been selected 
before the package is loaded.) 

The \notef ontsetup macro defines the standard set of fonts for all your footnotes. This 
command redefines such commands as \it so that they refer to an appropriate family of fonts, 
typically different from that used for the main text; normally, EDMAC chooses eight-point fonts 
for your footnotes, as against ten-point fonts for the main text. 

The \notenumf ont macro specifies the font used for the line numbers printed in notes. 
This will typically be a command like \bf (EDMAC’s initial value is \sevenrm) that selects a 
distinctive style for the note numbers, but leaves the choice of a size up to \notef ontsetup. 

Line numbers for the main text are usually printed in a smaller font in the margin. The 
\numlabf ont macro is provided as a standard name for that font: it is initially set to be a 
seven-point roman font. You might wish to use a different font if, for example, you preferred 
to have these line numbers printed using old-style numerals. 

We will briefly discuss \select@lemmaf ont here because it is important to know about 

24 There is one tiny proviso about using paragraphed notes: you shouldn't force any explicit line-breaks inside such 
notes: do not use \par, \break, or \penalty=-10000. If you must have a line-break for some obscure reason, 
just suggest the break very strongly: \penalty=-9999 will do the trick. Page 66 explains why this restriction is 
necessary. 


\interparanoteglue 


\notefontsetup 


\notenumfont 


\numlabfont 


\select@lemmafont 
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it now, although it is not one of the macros you would expect to change in the course of a 
simple job. Hence it is “protected” by having the @-sign in its name. 

When you use the \text macro to mark a word in your text as a lemma, that word will 
normally be printed again in your apparatus. If the word in the text happens to be in a font 
such as italic or bold you would probably expect it to appear in the apparatus in the same font. 
This becomes an absolute necessity if the font is actually a different script, such as Arabic or 
Cyrillic. \select@lemmafont does the work of decoding EDMAC’s data about the fonts used 
to print the lemma in the main text and calling up those fonts for printing the lemma in the 
note. 

\select@lemmafont is a macro that takes one long argument—the cluster of line 
numbers passed to the note commands. This cluster ends with a code indicating what fonts 
were in use at the start of the lemma. \select@lemmaf ont selects the appropriate font for 
the note using that font specifier. 

EDMAC uses this macro in a standard footnote format macro called \normalf ootfmt. The 
footnote formats for each of the layers A to E are \let equal to \normalf ootfmt. So all the 
layers of footnotes are formatted in the same way. 

But it is also likely that you might want to have different fonts for just, say, the 
note numbers in layers A and B of your apparatus. To do this, make two copies of the 
\normalfootfmt macro (see p. 61)—or \twocolfootfmt, or the other appropriate macro 
ending in -f ootfmt, depending on what footnote format you have selected—and give these 
macros the names \Af ootfmt and \Bf ootfmt. Then, in these new macros, change the font 
specifications (and spacing, or whatever) to your liking. 

\endashchar A relatively trivial matter relates to punctuation. In your footnotes, there will sometimes 
\fullstop be spans of line numbers like this: 12-34, or lines with sub-line numbers like this: 55.6. 
\rbracket The en-dash and the full stop are taken from the same font as the numbers, and it all works 
nicely. But what if you wanted to use old-style numbers, like 12 and 34 ? These look nice in 
an edition, but when you use the fonts provided by Plain TgX they are taken from a math 
font which does not have the en-dash or full stop in the same places as a text font. If you 
(or your macros) just typed $\oldstyle 12—34$ or $\oldstyle 55.6$ you would get 
“i 2 ” 34 ”and “ 55 > 6 ”. So we define \endashchar and \f ullstop, which produce an en-dash 
and a full stop respectively from the \rm font, whatever font you are using for the numbers. 
These two macros are used in the macros which format the line numbers in the margins and 
footnotes, instead of explicit punctuation. We also define an \rbracket macro for the right 
square bracket printed at the end of the lemma in many styles of textual notes (including 
EDMAC’s standard style). 


2.7.1 The New Font Selection Scheme 

While the handling the fonts in PLAIN TpX works for simple cases, it quickly gets inadequate 
if you want TpX to load many different fonts, or if you frequently change font sizes, languages, 
etc. We recommend that for all but the simplest editions you consider using the New Font 
Selection Scheme. 

The New Font Selection Scheme (NFSS) is a major piece of programming by Frank 
Mittelbach and Rainer Schopf which completely rewrites the way TgX macros handle fonts. 
It was first published in TUGboat in 1989. 25 Initially, the NFSS was aimed at replacing the 
LTgX system of font handling, as contained in If onts. tex . 26 Later it became part of a major 
revision of the whole of LTpX, and is now documented in The /I//A Companion 27 and in the 


25 TUGboat 10 (1989), pp. 222-238. 

26 See TUGboat 11 (1990), pp. 297-305. 

27 By Michel Goossens, Frank Mittelbach and Alexander Samarin (Reading, etc.: Addison Wesley, 1994). See 
especially chapter 7. 
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files distributed with ETjgX itself. 28 Another reason why you might wish to use the NFSS is 
that you may already be accustomed to using it if you are using ETpX for other parts of your 
book, or for other publications. 

Wayne Sullivan adapted an early release of the NFSS for separate use with PLAIN TpX 
and EDMAC. 29 Since then, the NFSS has become more closely integrated into ETpX. So today, 
if you wish to use the NFSS, you should start by installing the latest version of ETgX. This 
does not mean that EDMAC is compatible with L5TpX in general: it isn’t. But the accompanying 
file ed-nf ss. tex contains instructions about a simple way in which EDMAC can use just those 
parts of ETpX that define the NFSS. We have kept these instructions separate because ETgX 
is in a period of evolution, and things may work differently in future. But EDMAC itself does 
contain the ‘hooks’ required to access the NFSS if it has been defined. 

What will you gain by using the NFSS with EDMAC? The BTp;X Companion, referred to 
above, makes the general case for NFSS in clear terms at the beginning of chapter 7. More 
specifically, if you read the documentation below, you will come across several places where 
we highlight how hamstrung we felt, being limited to the font macros available in Plain TgX. 
See the discussion of \select@lemmaf ont in particular fp. 58). If you are happy with the 
CM fonts used by Plain TgX, plus just a very few others, then you could stay with EDMAC as 
it is. But if you want to use completely different families of fonts, such as PostScript fonts, or 
if you plan to use several different languages or alphabets such as Armenian or Greek, then 
your work will be made much easier by the NFSS. 

Here are some examples of how you might define some of the font macros when you use 
NFSS. 

\def\notefontsetup{\fontsize{7}{8}\selectfont} 

\let\notenumfont=\rm 


These commands select seven-point fonts on eight-point baselines for the notes, and choose a 
roman font for the line numbers within notes. 

2.7.2 The Plain font selection scheme 

If you run ordinary TpX with edmac.doc, the main font commands of PLAINTgX will be 
available in the normal way (see the TpXbook, chapter 4). 

EDMAC also defines a set of macros (modelled on some of the manmac macros from 
appendix E of The TpXbook) to invoke eight-point fonts, and an \eightpoint macro to select 
a whole set of fonts at that size; when the Plain font selection scheme is used, this is the initial 
value of \notef ontsetup. If you want to use some other font size for the notes, you will 
need to load the appropriate fonts in your file, and then define your own macro on the model 
of \eightpoint that will properly assign the baseline spacing, set the various font families, 
and redefine the commands \rm, \it, etc. 

If your document requires font shapes other than those found in Plain TpX, you will 
need to go further and modify the \select@lemmaf ont macro to handle these shapes: see 
its use on p. 58 for more details. As you will see from that description, if you are using some 
new, outlandish font such as Devanagarl, you should assign it a new font family, in order 
for \select@lemmaf ont to be able to handle it this way. But once you get to this level of 
complexity, it might be better to switch over to the New Font Selection Scheme anyway. Note 
that our use of the Plain font selection scheme makes a use of the “font family” specifier that is 
not what was intended; and because TgX’s maximum font-family number is 15, it is possible 
to run out of font families if your text has many different kinds of font or uses other macro 

28 Of the files in the IiT|;X 2g distribution, you should especially read features .tex and fontcmds . dtx. 

2s See the file plainf ss .zip available from internet archive sites of TgX-related material. 
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Figure 1: Crop marks, back and head margins. 


packages that also define new font families. When EDMAC uses NFSS, it does not meddle with 
font-family numbers in this way. 

Because \notefontsetup sets up the whole set of fonts used within notes that are 
likely to change font shapes, it needs to be equated to a complex macro like \eightpoint. 
But the other EDMAC font macros—\notenumfont and \numlabfont—are used for text 
which should not contain any font changes, and it is usually good enough to equate one 
of these to a command that selects a specific font at a specific size. For example, saying 
\let\numlabf ont=\seveni selects a seven-point math italic font for marginal line num¬ 
bers, so that the numbers will be printed using old-style figures. 

2.8 Crop marks 

Publishers usually like crop marks on the camera-ready copy for works of this kind, so a 
facility for generating them has been incorporated into EDMAC. 

Publishers specify crop marks (or trim lines, etc.) in terms of two dimensions, height and 
width, and they also usually specify back and head margins. 

The “head margin” is the distance between the top of the printed text and the top crop 
marks; it is normally measured from the top of the running head. Plain TgX’s \headline. 
The “back margins” (or “gutter margins”) are the right margins of even-numbered pages, and 
the left margins of odd-numbered pages. If you hold a book open in front of you, they are the 
margins in the middle of the opening. 

If you want to have crop marks, and to control the back and head margins, you issue the 
\cropsetup macro. It takes four parameters (see Figure 1): 

1 . the vertical distance between crop marks, 

2 . the horizontal distance between crop marks, 

3. the head margin, and 

4. the back margin. 
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In addition to these arguments, EDMAC uses the \hsize of the page, as well as information 
about the height at which the \headline floats above the main text (which is set in 
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Plain TpX’s \makeheadline macro). EDMAC performs these calculations when you issue 
the \cropsetup command. Therefore, it is important that you set the \hsize and make any 
changes to \makeheadline before you issue the \cropsetup command. If you do change 
these values, issue the \cropsetup command again. 

In particular, if the \headline is going to be set at a different height from the top 
of the text, or in a different font, you can change the appropriate values easily by using 
\headlinef ont and \magicvskip. The former is what you would expect; just \let 
it to be whatever font you are using (the font macro should include a definition of an 
appropriate \strutbox for that font). Note that this specification does not change what font 
is actually used by TpX, unless you modify TpX’s \headline macro; it serves only to inform 
\cropsetup of the size of your headline font. 

The \magicvskip gives you direct access to what Donald Knuth calls a “magic constant” 
on p.255 of The TjXbook. For Plain TpiX, \magicvskip is —22.5pt, but you can change 
this if you want the \headline higher or lower than the built-in value. See p. 71 below for 
more details. 

Apart from this stricture that the \cropsetup command should follow any changes in 
\hsize and the \headline, there is no relation (other than visual) between the crop marks 
and the \hsize and \vsize. You can vary any of these dimensions independently, without 
affecting any other. Your publisher will almost always want the \hsize and \vsize to be a 
few picas smaller than the horizontal and vertical distances between crop marks. And if you 
want to shift the whole of your printed page about on the paper, use \hof f set and \vof f set 
as described in The TfXbook, p. 251, or use the facilities of your DVI translator. 

\cropwidth and \cropgap define the thickness of the rules used for drawing crop marks 
and the gap by which crop marks don’t cross; as before, if you change either, do so before 
using the \cropsetup macro. 

If, for example, you want your text to have a back margin, for two-sided printing, but you 
don’t want crop marks, just set \cropwidth=Opt. 


2.9 Endnotes 

\doendnotes closes the .end file that contains the text of the endnotes, if it’s open, and 
prints one series of endnotes, as specifed by a series-letter argument, e.g., \doendnotes{A}. 
\endprint is the macro that’s called to print each note. Just like the footnote macros do (see 
p. 17 above), it uses \notenumf ont, \select@lemmaf ont, and \notef ontsetup to select 
fonts. 

If you aren’t going to have any endnotes, you can say \noendnotes in your file, before 
the first \beginnumbering, to suppress the generation of an unneeded . end file. 

2.10 Cross referencing 

EDMAC provides a simple cross-referencing facility that allows you to mark places in the text 
with labels, and generate page and line number references to those places elsewhere in the 
text using those labels. 

First you place a label in the text using the command \label{f oo}. “f oo” can be almost 
anything you like, including letters, numbers, punctuation, or a combination—anything but 
spaces; you might say \label{toves-3}, for example. 30 

Elsewhere in the text, either before or after the \label, you can refer to its location 
by saying \pageref {f oo}, or \lineref {f oo}, or \sublineref {f oo>. These commands 
will produce, respectively, the page, line and sub-line on which the \label{f oo} command 
occurred. 

30 More precisely, you should stick to characters in the TgX categories of "letter” and “other”. 
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A \label command may appear in the main text, or in the first argument of \text, but 
not in the apparatus itself. But \pageref, \lineref and \sublineref commands can also 
be used in the apparatus to refer to \labels in the text. 

The \label command works by writing macros to an . aux file (which will only be 
created if you are actually using some of these commands). Clearly, then, you will need 
to process your document through TpX twice in order for the references to be resolved. 

You will be warned if you say \label{f 00 } and f 00 has been used as a label before. 
The ref commands will return references to the last place in the file marked with this label. 
You will also be warned if a reference is made to an undefined label. (This will also happen 
the first time you process a document after adding a new \label command: the auxiliary file 
will not have been updated yet.) 

If you want to refer to a word inside a \text{. . . }/ command, the \label should be 
defined inside the first argument, e.g.. 

The \text{creature\label{elephant} was quite 
unafraid}\AfootnotefOf the mouse, that is.}/ 


\xpageref 

\xlineref 

\xsublineref 


\xxref 


\makelabel 


However, there are situations in which you’ll want EDMAC to return a number without 
displaying any warning messages about undefined labels or the like: if you want to use the 
reference in a context where TpX is looking for a number, such a warning will lead to a 
complaint that the number is missing. This is the case for references used within the argument 
to \linenum, for example. For this situation, three variants of the reference commands, with 
the x prefix, are supplied: \xpageref, \xlineref, and \xsublineref. The only operations 
they perform are ones that 'IpX can do in its “mouth”. They have these limitations: they will 
not tell you if the label is undefined, and they must be preceded in the file by at least one of 
the four other cross-reference commands—e.g., a \label{f 00 } command, even if you never 
refer to that label—since those commands can all do the necessary processing of the . aux 
file, and these cannot. 

The macros \xxref and \makelabel let you manipulate numbers and labels in ways 
which you may find helpful in tricky situations. 

The \xxref command generates a reference to a sequence of lines, for use in the 
second argument of \text. It takes two arguments, both of which are labels: e.g., 
\xxref {mouseMelephant}. It calls \linenum (q.v., p. 14 above) and sets the beginning 
page, line, and sub-line numbers to those of the place where \label{mouse> was placed, and 
the ending numbers to those where \label{elephant} occurs. 

Sometimes the \label command cannot be used to specify exactly the page and line 
desired—for example, if you want to refer to a page and line number in another volume 
of your edition. In such cases, you can use the \makelabel macro so that you can “roll 
your own” label. For example, if you say “\makelabel{elephant}{10 125 I 0}” you will 
have created a new label, and a later call to \pageref {elephant} would print “10” and 
\lineref {elephant} would print “25”. The sub-line number here is zero. It is usually best 
to collect your \makelabel statements near the top of your document, so that you can see 
them at a glance. 


2.11 Miscellaneous 

Generally, you should set the \vsize and \hsize of you document at the top, before any 
EDMAC commands are issued, since EDMAC uses these values to work out some things, like 
crop marks and footnote spacing. As The TjXbook says (p. 251), “It’s best not to monkey with 
\hsize and \vsize except at the very beginning of a job... ”. 

Any changes you make to \leftskip or \rightskip will apply to the main body text, 
but not to the footnotes. This is how you can get a narrow-set text on a wider base of notes, a 
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common style for critical editions. Footnote material is always set \hsize wide. 

When EDMAC assembles the name of the auxiliary file for a section, it prefixes the section 
number with \extensionchars. This is initially defined to be empty, but you can add 
some characters to help distinguish these files if you like; what you use is likely to be 
system-dependent. If, for example, you said \def \extensionchars{! >, then you would 
get temporary files called jobname. ! 1, jobname. ! 2, etc. 

2.12 Known bugs 

The PLAIN T^X \footnote command will work only within unnumbered text; within 
numbered text it will wreak havoc. In general, EDMAC’s system for adding marginal line 
numbers breaks anything that makes direct use of the TjgX insert system. 

\parshape cannot be used within numbered text, except in a very restricted way (see 
P-49). 

EDMAC is a three-pass system, but even after a document has been processed three times, 
there are some tricky situations in which the page breaks decided by TpX never settle down. 
At each successive run of TpX, EDMAC oscillates between two different sets of page decisions. 
To stop this happening, should it arise, Wayne Sullivan suggested the inclusion of the quantity 
\ballast. The amount of \ballast will be subtracted from the penalties which apply to the 
page breaks calculated on the previous run through TjgX, thus reinforcing these breaks. So if 
you find your page breaks oscillating, say \ballast=100 or some such figure, and with any 
luck the page breaks will settle down. Luckily, this problem doesn’t crop up at all often. 

The restriction on explicit line-breaking in paragraphed footnotes, mentioned in footnote 
24, p. 17, and described in more detail on p. 66, really is a nuisance if that’s something you 
need to do. There are some possible solutions, described by Michael Downes, but this area 
remains unsatisfactory. 

Help, suggestions and corrections will be gratefully received. 


\extensionchars 


\ballast 
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3 Implementation overview 

We present the EDMAC code in roughly the order in which it’s used during a run of TpX. The 
order is exactly that in which it’s read when you load the EDMAC package, because the same file 
is used to generate this book and to generate the TgX input file. Most of what follows consists 
of macro definitions, but there are some TpX commands that are executed immediately— 
especially at the start of the code. The documentation generally describes the code from the 
point of view of what happens when the macros are executed, though. As each macro is 
introduced, its name is printed in the margin. 

We begin with the commands you use to start and stop line numbering in a section of 
text (Section 4). Next comes the machinery for writing and reading the auxiliary file for each 
section that helps us count lines, and for creating list macros encoding the information from 
that file (Section 5); this auxiliary file will be read at the start of each section, to create those 
list macros, and a new version of the file will be started to collect information from the body 
of the section. 

Next are commands for marking sections of the text for footnotes (Section 6), followed by 
the macros that take each paragraph apart, attach the line numbers and insertions, and send the 
result to the vertical list (Section 7). The footnote commands (Section 8) and output routine 
(Section 9) finish the main part of the processing; cross-referencing (Section 10) and endnotes 
(Section 11) complete the story. 

In what follows, macros with an @ in their name are more internal to the workings of 
EDMAC than those made up just of ordinary letters, just as in PLAIN TgX (see The TjXbook, 
p. 344). You are meant to be able to make free with ordinary macros, but the ones should 
be treated with more respect, and changed only if you are pretty sure of what you are doing. 
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When this file is loaded by TgX, it makes a check, before anything else is done, for whether 
this set of macros has already been loaded before. If it has, this file exits without being read 
further; if it hasn’t, some informative messages are printed. 

\ifx\edmacloaded\relax\endinput\else\let\edmacloaded=\relax\fi 
{\newlinechar=‘\* *J 
\message!""J 

EDMAC Critical edition macros. “J 

Copyright (C) 1990—1996 John Lavagnino and Dominik Wujastyk.""J 

This is free software, and you are welcome to redistribute it under""J 

certain conditions; see the accompanying file COPYING for details.""J 

""J*/. 

\fileversion\space\space\space <\filedate>."" J 

You can’t normally use @ signs within TpX macro names. We define macros that allow 
you to turn this capability on and off; and then we turn it on for the time being, since this file 
will use and define many macros with @ signs in their names. 

\def\makeatletter{\catcode‘\@=11 } 

\def\makeatother{\catcode‘\@=12 } 

\makeatletter 

In imitation of ETpX, we create a couple of scratch counters, \@tempcnta and 
\@tempcntb, that we can use like \count255 (see The T^Xbook, p. 122). 
\newcount\@tempcnta \newcount\@tempcntb 

EDMAC will sometimes want to warn you about what’s going on by writing to your terminal 
and log file; that operation is handled by the \edmac@warning macro. 

\def\edmac@warning#l{\immediate\write\sixt@@n{EDMAC warning: #1}} 


4.1 Sectioning commands 

You use \begiimumbering and \endnumbering to begin and end a line-numbered section 
of the text; the pair of commands may be used as many times as you like within one 
document to start and end multiple, separately line-numbered sections. TgX will maintain 
and display a “section number” as a counter named \section@num that counts how many 
\beginnumbering and \resumenumbering commands have appeared; it needn’t be related 
to the logical divisions of your text. 

Each section will read and write an associated “line-list file”, containing information used 
to do the numbering; the file will be called (jobname). (mi), where nn is the section number. 
However, you may direct that an extra string be added before the nn in that filename, in order 
to distinguish these temporary files from others: that string is called \extensionchars. 
Initially it’s empty, since different operating systems have greatly varying ideas about what 
characters are permitted in file names. So \def \extensionchars{-> gives temporary files 
called j obname . -1, j obname . -2, etc. 

\newcount\section@num 

\section@num=0 

\let\extensionchars=\empty 

The \if numbering flag is set to true if we’re within a numbered section (that is, between 
\beginnumbering and \ endnumbering). You can use \ifnumbering in your own code to 
check whether you’re in a numbered section, but don’t change the flag’s value. 

\newif\ifnumbering 


\makeatletter 

\makeatother 


\@tempcnta 

\@tempcntb 


\edmac@warning 


\section@num 


\extensionchars 


\ifnumbering 
\numberingtrue 
\numberingfalse 
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\beginimmbering begins a section of numbered text. When it’s executed we increment 
\beginnumbering the section number, initialize our counters, send a message to your terminal, and call macros 
to start the lineation machinery and endnote files. 

The initializations here are trickier than they look. \line@list@stuff will use all of 
the counters that are zeroed here when it assembles the line-list and other lists of information 
about the lineation. But it will do all of this locally and within a group, and when it’s done 
the lists will remain but the counters will return to zero. Those same counters will then be 
used as we process the text of this section, but the assignments will be made globally. These 
initializations actually apply to both uses, though in all other respects there should be no direct 
interaction between the use of these counters and variables in the two processing steps. 

\def Ybeginnumber ing{'/, 

\ifnumbering 

\errmessage{Numbering has already been started}'/, 

\endnumbering 

\f i 

\global\numberingtrue 

\global\advance\section@num by 1 

\global\absline@num=0 

\global\line@num=0 

\global\subline@num=0 

\global\@lock=0 

\global\sub@lock=0 

\global\sublines@false 

\global\let\next@page@num=\relax 

\global\let\sub@change=\relax 

\message{Section \the\section@num }'/, 

\line@list@stuff{\jobname . \extensionchars\the\section@num}'/, 

\end@stuff} 

\endnumbering \endnumbering must follow the last text for a numbered section. It takes care of 

notifying you when changes have been noted in the input that require running the file through 
again to move everything to the right place. 

\def \endnumber ing{'/, 

\ifnumbering 

\global\numberingfalse 
\normal@pars 

\ifx\insertlines@list\empty\else 
\global\noteschanged@true 
\f i 

\ifx\line@list\empty\else 
\global\noteschanged@true 
\f i 

\ifnoteschanged® 

\immediate\write\sixt@@n{EDMAC reminder: }'/, 

\immediate\write\sixt@@n{ The number of footnotes in this section 

has changed since the last run.}*/, 
\immediate\write\sixt@@n{ You will need to run TeX two more times 

before the footnote placement}'/, 

\immediate\write\sixt@@n{ and line numbering in this section are 

correct.}'/, 

\fi 

\else 

\errmessage{Numbering was not started}'/, 

\fi} 

\pausenumbering The \pausenumbering macro is just the same as \endnumbering, but with the 
\resumenumbering 
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\ifnumbering flag set to true, to show that numbering continues across the gap. 31 

\def\pausenumbering{\endnumbering\global\numberingtrue} 

The \resumenumbering macro is a bit more involved, but not much. It does most of the same 
things as \beginnumbering, but without resetting the various counters. Note that no check 
is made by \resumenumbering to ensure that \pausenumbering was actually invoked. 
\def \resumenumber ing{'/, 

\ifnumbering 

\global\advance\section@num by 1 
\message{Section \the\section@num\space 

(continuing the previous section)}'/, 
\line@list@stuff {\jobname. \extensionchars\the\section@num}'/, 

\end@stuff 
\else 

\errmessage{Numbering should already have been started.}'/, 

\endnumbering 

\beginnumbering 

\fi} 


31 Our thanks to Wayne Sullivan, who suggested the idea behind these macros. 
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\ifbypage@ 
\bypage@true 
\bypage@false 

\lineation 


\linenummargin 

\line@margin 


5 Line counting 

5.1 Choosing the system of lineation 

Sometimes you want line numbers that start at 1 at the top of each page; other times you 
want line numbers that start at 1 at the start of each section and increase regardless of page 
breaks. EDMAC can do it either way, and you can switch from one to the other within one work. 
But you have to choose one or the other for all line numbers and line references within each 
section. Here we will define internal codes for these systems and the macros you use to select 
them. 

The \ifbypage@ flag specifies the current lineation system: true for line-of-section, 
false for line-of-page. EDMAC will use the line-of-section system unless instructed otherwise. 
\newif\ifbypage® 

\lineation is the macro you use to select the lineation system. Its argument is a string: 
either page or section. 

\def \lineation#l{{'/, 

\ifnumbering 

\errmessage{You can’t use \string\lineation\space 
within a numbered section}'/, 

\else 

\def \@tempa{#l}\def \®tempb{page}*/, 

\ifx\®tempa\@tempb 

\global\bypage®true 

\else 

\def \®tempb{section}'/, 

\ifx\®tempa\@tempb 

\global\bypage®false 
\else 

\edmac®warning{Bad \string\lineation\space argument. }'/, 

\fi 

\fi 

\fi}} 

You call \linenummargin to specify which margin you want your line numbers in; it 
takes one argument, a string. You can put the line numbers in the same margin on every 
page using left or right; or you can use inner or outer to get them in the inner or outer 
margins. (These last two options assume that even-numbered pages will be on the left-hand 
side of every opening in your book.) You can change this within a numbered section, but 
the change may not take effect just when you’d like; if it’s done between paragraphs nothing 
surprising should happen. 

The selection is recorded in \line@margin: 0 for left, 1 for right, 2 for outer, and 3 for 
inner. 

\newcount\line®margin 
\def \linenummargin#l{{*/, 

\def \®tempa{#l}\def \®tempb{lef t}'/, 

\ifx\@tempa\@tempb 

\global\line®margin=0 

\else 

\def \®tempb{right}'/, 

\ifx\®tempa\®tempb 

\global\line®margin=l 

\else 

\def \®tempb{outer}'/, 

\ifx\®tempa\®tempb 

\global\line®margin=2 
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\else 

\def \@tempb{inner}'/, 

\ifx\@tempa\@tempb 

\global\line<3margin=3 

\else 

\edmac@warning{Bad \string\linenuiranargin\space argument.}'/, 

\fi 

\fi 

\fi 

\fi}} 

The following parameters tell EDMAC which lines should be printed with line num¬ 
bers. \f irstlinenum is the number of the first line in each section that gets a number; 
\linenumincrement is the difference between successive numbered lines. The initial values 
of these counters produce labels on lines 5,10,15, etc. \linenumincrement must be at least 
1 . 

\newcount\firstlinenum 
\newcount\linenumincrement 
\firstlinenum=5 
\linenumincrement=5 

The following parameters are just like \f irstlinenum and \linenumincrement, but 
for sub-line numbers, \sublinenumincrement must be at least 1. 

\newcount\firstsublinenum 
\newcount\sublinenumincrement 
\firstsublinenum=5 
\sublinenumincrement=5 

When line locking is being used, the \lockdisp macro specifies whether a line number— 
if one is due to appear—should be printed on the first printed line or on the last, or by all of 
them. Its argument is a word, either first, last, or all. Initially, it is set to first. 
\lock@disp encodes the selection: 0 for first, 1 for last, 2 for all. 

\newcount\lock@disp 
\def \lockdisp#l{{'/, 

\def \@tempa{#l}\def \@tempb{f irst}*/, 

\ifx\@tempa\@tempb 

\global\lock<3disp=0 

\else 

\def \@tempb{last}'/, 

\if x\@tempa\<3tempb 

\global\lock@disp=l 

\else 

\def \@tempb{all}'/, 

\ifx\@tempa\@tempb 

\global\lock@disp=2 

\else 

\edmac@warning{Bad \string\lockdisp\space argument. }'/, 

\fi 

\fi 

\fi}} 

The same questions about where to print the line number apply to sub-lines, and these are 
the analogous macros for dealing with the problem. 

\newcount\sublock@disp 
\def \sublockdisp#l{{'/, 

\def \@tempa{#l}\def \@tempb{f irst}'/, 

\ifx\@tempa\@tempb 


\firstlinenum 
\linenumincrement 


\firstsublinenum 
\sublinenumincrement 


\lockdisp 

\lock@disp 


\sublockdisp 

\sublock@disp 
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\global\sublock®disp=0 

\else 

\def \®tempb{last}'/, 

\ifx\®tempa\®tempb 

\global\sublock®disp=l 

\else 

\def \®tempb{all}'/, 

\ifx\®tempa\®tempb 

\global\sublock®disp=2 

\else 

\edmac®warning{Bad \string\sublockdisp\space argument. }'/, 
\fi 
\fi 
\fi}} 


\leftlinenum 
\rightlinenum 
\linenumsep 
\numlabfont 


\leftlineimm and \rightlinenum are the macros that are called to print marginal 
line numbers on a page, for left- and right-hand margins respectively. They’re made easy 
to access and change, since you may often want to change the styling in some way. These 
standard versions illustrate the general sort of thing that will be needed; they’re based on the 
\lef theadline macro in The TjXbook, p. 416. 

Whatever these macros output gets printed in a box that will be put into the appropriate 
margin without any space between it and the line of text. You’11 generally want a kern between 
a line number and the text, and \linemimsep is provided as a standard way of storing its 
size. Line numbers are usually printed in a smaller font, and \mimlabf ont is provided as a 
standard name for that font. When called, these macros will be executed within a group, so 
font changes and the like will remain local. 


\newdimen\linenumsep 
\linenumsep=lpc 
\ifx\selectfont\undefined 
\let\numlabf ont=\s evenrm 
\else 

\def\numlabf ont{\f ontsize{7}{8pt}\rm} 

\fi 

\def\leftlinenum{\numlabfont\the\line®num 
\ifsublines® 

\ifnum\subline®num>0 

\unskip\fullstop\the\subline®num 

\fi 

\fi 

\kern\linenumsep} 

\def\rightlinenum{\kern\linenumsep \numlabfont\the\line@num 
\ifsublines® 

\ifnum\subline®num>0 

\unskip\fullstop\the\subline®num 

\fi 

\fi} 


5.2 List macros 

We will make heavy use of lists of information, which will be built up and taken apart by the 
following macros; they are adapted from The TjXbook , pp. 378-379, which discusses their 
use in more detail. 

These macros consume a large amount of the run-time of this code. We intend to replace 
them in a future version, and in anticipation of doing so have defined their interface in such a 
way that it is not sensitive to details of the underlying code. 
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The \list@create macro creates a new list. In this version of EDMAC this macro doesn’t 
do anything beyond initializing an empty list macro, but in future versions it will do more. 
\def\list©create#l{\global\let#l=\empty} 

The \list@clear macro just initializes a list to the empty list; in this version of EDMAC 
it is no different from \list@create. 

\def\list©clear#l{\global\let#l=\empty} 

XxrightSappenditem expands an item and appends it to the right end of a list macro. 
We want the expansion because we’ll often be using this to store the current value of a counter. 
It creates global control sequences, like \xdef, and uses two temporary token-list registers, 
\@toksa and \@toksb. 

\newtoks\@toksa \newtoks\@toksb 
\global\©toksa={\\} 

\long\def \xright@appenditem#l\to#2{'/, 

\global\©toksb=\expandaf ter {#2}*/, 
\xdef#2{\the\@toksb\the\@toksa\expandafter{#l}}'/, 

\global\@toksb={}} 

\xlef tSappenditem expands an item and appends it to the left end of a list macro; it is 
otherwise identical to \xright@appenditem. 

\long\def \xlef t@appenditem#l\to#2{*/, 

\global\©toksb=\expandaf ter {#2}*/, 
\xdef#2{\the\@toksa\expandafter{#l}\the\@toksb}'/, 

\global\@toksb={}} 

The \gl@p macro removes the leftmost item from a list and places it in a control sequence. 
You say \gl@p\l\to\z (where \1 is the list macro, and \z receives the left item). \1 is 
assumed nonempty: say \ifx\l\empty to test for an empty \1. The control sequences 
created by \gl@p are all global. 

\def\gl@p#l\to#2{\expandafter\gl@poff#l\gl@poff#1#2} 

\long\def\gl©poff\\#l#2\gl@poff#3#4{\gdef#4{#l}\gdef#3{#2}} 

5.3 Line-number counters and lists 

Footnote references using line numbers rather than symbols can’t be generated in one pass, 
because we don’t know the line numbers till we ship out the pages. It would be possible if 
footnotes were never keyed to more than one line; but some footnotes gloss passages that 
may run for several lines, and they must be tied to the first line of the passage glossed. And 
even one-line passages require two passes if we want line-per-page numbering rather than 
line-per-section numbering. 

So we run TpX over the text several times, and each time save information about page and 
line numbers in a “line-list file” to be used during the next pass. At the start of each section— 
whenever \beginnumbering is executed—the line-list file for that section is read, and the 
information from it is encoded into a few list macros. 

We need first to define the different line numbers that are involved in these macros, and 
the associated counters. 

The \line@num counter stores the line number that’s used in marginal line numbering and 
in notes: counting either from the start of the page or from the start of the section, depending 
on your choice for this section. This may be qualified by \subline@num. 
\newcount\line@num 

The \subline@num counter stores a sub-line number that qualifies MineSnum. For 
example, line 10 might have sub-line numbers 1, 2 and 3, which might be printed as lines 
10.1,10.2,10.3. 

\newcount\subline@num 


\list@create 


\list@clear 


Xxright©appenditem 
\@toksa 
\@toksb 


\xleft©appenditem 


\gl@p 


\line©num 


\subline@num 
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\ifsublines® 
\sublines@true 
\sublines@false 


\absline@num 


\®lock 

\sub®lock 


\line®list 
\insertlines®list 
\actionlines©list 
\actions®list 


We maintain an associated flag, \if sublines®, to tell us whether we’re within a sub-line 
range or not. 

You may wonder why we don’t just use the value of \subline®num to determine this— 
treating anything greater than 0 as an indication that sub-lineation is on. We need a separate 
flag because sub-lineation can be used together with line-number locking in odd ways: several 
pieces of a logical line might be interrupted by pieces of sub-lineated text, and those sub-line 
numbers should not return to zero until the next change in the major line number. This is 
common in the typesetting of English Renaissance verse drama, in which stage directions are 
given sub-line numbers: a single line of verse may be interrupted by several stage directions. 
\newif\if sublines® 

The \absline@num counter stores the absolute number of lines since the start of the 
section: that is, the number we’ve actually printed, no matter what numbers we attached to 
them. This value is never printed on an output page, though \line@num will often be equal 
to it. It is used internally to keep track of where notes are to appear and where new pages 
start: using this value rather than \line@num is a lot simpler, because it doesn’t depend on 
the lineation system in use. 

\newcount\absline®num 

We’ll be calling \absline@num numbers “absolute” numbers, and \line@imm and 
\subline@num numbers “visible” numbers. 

The \@lock and \sub@lock counters tell us the state of line-number and sub-line-number 
locking. 0 means we’re not within a locked set of lines; 1 means we’re at the first line in the 
set; 2, at some intermediate line; and 3, at the last line. 

\newcount\®lock 

\newcount\sub®lock 

Now we can define the list macros that will be created from the line-list file. We will 
maintain the following lists: 

• \line@list: the page and line numbers for every lemma marked by \text. There are 
seven pieces of information, separated by vertical bars: 

1. the starting page, 

2. line, and 

3. sub-line numbers, followed by the 

4. ending page, 

5. line, and 

6. sub-line numbers, and then the 

7. font specifier for the lemma. 

These line numbers are all visible numbers. Thus a lemma that started on page 23, line 
35 and went on until page 24, line 3 (with no sub-line numbering), and was typeset in 
a font from \f amO would have a line list entry like this: 231 35 I 01 241 31 0 I 0. That 
assumes the use of the Plain font selection scheme, which uses the family number as 
its font specifier. When NFSS is used, the font specifier is a set of four codes for font 
encoding, family, series, and shape, separated by / characters; in that case, the line-list 
entry would be 23 I 35 I 0 I 24 I 3 I 0 I OTl/cmr/m/n. 

There is one item in this list for every lemma marked by \text, even if there are 
several notes to that lemma, or no notes at all. \text reads the data in this list, making 
it available for use in the text of notes. 

• \insertlines@list: the line numbers of lines that have footnotes or other insertions. 
These are the absolute numbers where the corresponding lemmas begin. This list 
contains one entry for every footnote in the section; one lemma may contribute no 
footnotes or many footnotes. This list is used by \add@inserts within \do@line, to 
tell it where to insert notes. 
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• \actionlines@list: a list of absolute line numbers at which we are to perform 
special actions; these actions are specified by the \actions@list list defined below. 

• \actions@list: action codes corresponding to the line numbers in 

\actionlines@list. These codes tell EDMAC what action it’s supposed to take at 
each of these lines. One action, the page-start action, is generated behind the scenes 
by EDMAC itself; the others, for specifying sub-lineation, line-number locking, and line- 
number alteration, are generated only by explicit commands in your input file. The 
page-start and line-number-alteration actions require arguments, to specify the new 
values for the page or line numbers; instead of storing those arguments in another list, 
we have chosen the action-code values so that they can encode both the action and the 
argument in these cases. Action codes greater than —1000 are page-start actions, and 
the code value is the page number; action codes less than —5000 specify line numbers, 
and the code value is a transformed version of the line number; action codes between 
these two values specify other actions which require no argument. 

Here is the full list of action codes and their meanings; 

Any number greater than —1000 is a page-start action: the line number associated with 
it is the first line on a page, and the action number is the page number. (The cutoff 
of —1000 is chosen because negative page-number values are used by some macro 
packages; we assume that page-number values less than —1000 are not common.) 
Page-start action codes are added to the list by the \page@action macro, which is 
(indirectly) triggered by the workings of the \page@start macro; that macro should 
always be called in the output routine, just before the page contents are assembled. 
EDMAC calls it in \pagecontents. 

The action code —1001 specifies the start of sub-lineation: meaning that, starting with 
the next line, we should be advancing \subline@num at each start-of-line command, 
rather than \line@num. 

The action code —1002 specifies the end of sub-lineation. At the next start-of-line, we 
should clear the sub-line counter and start advancing the line number. The action codes 
for starting and ending sub-lineation are added to the list by the \sub@action macro, 
as called to implement the \startsub and \endsub macros. 

The action code —1003 specifies the start of line number locking. After the number for 
the current line is computed, it will remain at that value through the next line that has 
an action code to end locking. 

The action code —1004 specifies the end of line number locking. 

The action code —1005 specifies the start of sub-line number locking. After the number 
for the current sub-line is computed, it will remain at that value through the next sub¬ 
line that has an action code to end locking. 

The action code —1006 specifies the end of sub-line number locking. 

The four action codes for line and sub-line number locking are added to the list by the 
\do@lockon and \do@lockoff macros, as called to implement the \startlock and 
\endlock macros. 

An action code of —5000 or less sets the current visible line number (either the line 
number or the sub-line number, whichever is currently being advanced) to a specific 
positive value. The value of the code is — (5000 + n), where n is the value (always > 0) 
assigned to the current line number. Action codes of this type are added to the list by the 
\set@line@action macro, as called to implement the \advanceline and \setline 
macros: this action only occurs when the user has specified some change to the line 
numbers using those macros. Normally EDMAC computes the visible line numbers from 


33 



5 Line counting 


the absolute line numbers with reference to the other action codes and the settings they 
invoke; it doesn’t require an entry in the action-code list for every line. 

Here are the commands to create these lists: 

\list®create{\line@list} 

\list®create{\insertlines®list} 

\list®create{\actionlines®list} 

Mist ®create{\act ions® list} 

We’ll need some counters while we read the line-list, for the page number and the ending 
page, line, and sub-line numbers. Some of these will be used again later on, when we are 
acting on the data in our list macros. 

\newcount \page®num 
\newcount\endpage®num 
\newcount\endline®num 
\newcount\endsubline®num 

If the number of footnotes in a section is different from what it was during the last run, 
or if this is the very first time you’ve run TgX on this file, the information from the line-list 
used to place the notes will be wrong, and some notes will probably be misplaced. When this 
happens, we prefer to give a single error message for the whole section rather than messages at 
every point where we notice the problem, because we don’t really know where in the section 
notes were added or removed, and the solution in any case is simply to run TgX two more 
times; there’s no fix needed to the document. The \ifnoteschanged@ flag is set if such a 
change in the number of notes is discovered at any point. 

\newifMf notes changed® 

5.4 Reading the line-list file 

\read@linelist \read@linelist is the control sequence that is called (via the macro \line@list@stuf f) 
\@ input check by \beginmimbering to open and process a line-list file; its argument is the name of the file, 
which will be opened on stream \@inputcheck to check for its existence. The first thing we 
do is initialize all the lists we just described. 

\newread\®inputcheck 
\def \read®linelist#l{'/, 

Mis t®clear{Mine® list}'/, 

\list@clear{\insert lines® list}'/, 

\list®clear{\act ionlines® list}'/, 

\list®clear{\actions®list}'/, 

Try to open the line-list file, as a check on whether it exists. 

\openin\®inputcheck=#l 
\ifeof\®inputcheck 

\edmac®warning{Can’t find line-list file #1}'/, 

\global\noteschanged®true 

\else 

\global\noteschanged®false 
\closein\®inputcheck 

The file’s there. We start a new group and make some special definitions we’ll need to 
process it: it’s a sequence of TjgX commands, but they require a few special settings. We make 
[ and ] become grouping characters: they’re used that way in the line-list file, because we 
need to write them out one at a time rather than in balanced pairs, and it’s easier to just use 
something other than real braces. @ must become a letter, since this is run in the ordinary TpX 


\page@num 

\endpage®num 

\endline@num 

\endsubline®num 


\ifnoteschanged® 
\noteschanged®true 
\noteschanged®false 
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context. We ignore carriage returns, since if we’re in horizontal mode they can get interpreted 
as spaces to be printed. 

\begingroup 

\catcode‘\[=1 \catcode‘\]=2 
\makeatletter \catcode‘\~~M=9 

Our line, page, and line-locking counters were already zeroed by \line@list@stuff if 
this is being called from within \beginnumbering; sub-lineation will be turned off as well 
in that case. On the other hand, if this is being called from \resumenumbering, those things 
should still have the values they had when \pausenumbering was executed. 

Now, after these preliminaries, we start interpreting the file. 

\input #1 
\endgroup 

\fi 

When the \input is done, we’re all through with the line-list file. All the information we 
needed from it will now be encoded in our list macros. 

Finally, we initialize the \next@actionline and \next@action macros, which specify 
where and what the next action to be taken is. 

\global\page@num=-l 

\ifx\actionlines@list\empty 

\gdef \next@act ionlinef 1000000}'/, 

\else 

\gl@p\actionlines@list\to\next@actionline 
\gl@p\actions@list\to\next©action 

\fi} 

This version of \read@linelist creates list macros containing data for the entire 
section, so they could get rather large. It would be no more difficult to read the line-list 
file incrementally rather than all at once: we could read, at the start of each paragraph, 
only the commands relating to that paragraph, using \read. But this would require that we 
have two line-lists open at once, one for reading, one for writing, and on systems without 
version numbers we’d have to do some file renaming outside of TgX for that to work. 
We’ve retained this slower approach to avoid that sort of hacking about, but have provided 
the \pausemimbering and \resumemmbering macros to help you if you run into macro 
memory limitations (see p. 12 above). 

5.5 Commands within the line-list file 

This section defines the commands that can appear within a line-list file. They all have very 
short names because we are likely to be writing very large numbers of them out. One macro, 
\@1, is especially short, since it will be written to the line-list file once for every line of text 
in a numbered section. (Another of these commands, \@lab, will be introduced in a later 
section, among the cross-referencing commands it is associated with.) 

When these commands modify the various page and line counters, they deliberately do 
not say \global. This is because we want them to affect only the counter values within the 
current group when nested calls of \@ref occur. (The code assumes throughout that the value 
of \globaldef s is zero.) 

The macros with action in their names contain all the code that modifies the action-code 
list: again, this is so that they can be turned off easily for nested calls of \@ref. 

\@1 does everything related to the start of a new line of numbered text. 

First increment the absolute line-number, and perform deferred actions relating to page 
starts and sub-lines. 

\def\@l{\advance\absline@num by 1 


\@1 
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\@page 


\sub@on 

\sub@off 


\ifx\next@page@num\relax \else 
XpageOaction 

\let\next@page@num=\relax 
\f i 

\ifx\sub@change\relax \else 
\ifnum\sub@change>0 
\sublines@true 
\else 

\sublines@false 
\fi 

\sub@action 

\let\sub@change=\relax 

\fi 

Fix the lock counters, if necessary. A value of 1 is advanced to 2; 3 advances to 0; other 
values are unchanged. 

\ifcase\@lock 
\or 

\@lock=2 
\or \or 

\@lock=0 
\f i 

\ifcase\sub@lock 
\or 

\sub@lock=2 
\or \or 

\sub@lock=0 

\fi 

Now advance the visible line number, unless it’s been locked. 

\ifsublines® 

\ifnum\sub@lock<2 

\advance\subline@num by 1 
\fi 

\else 

\ifnum\@lock<2 

\advance\line<9num by 1 \subline@num=0 
\fi 

\fi} 

\@page marks the start of a new output page; its argument is the number of that page. 
First we reset the visible line numbers, if we’re numbering by page, and store the page 
number itself in a counter. 

\def \<§page#l{\if bypage® 

\line@num=0 \subline@num=0 
\fi 

\page@num=#l 

And we set a flag that tells \@1 that a new page number is to be set, because other 
associated actions shouldn’t occur until the next line-start occurs. 

\def\next@page@num{#l}} 

The \sub@on and \sub@of f macros turn sub-lineation on and off: but not directly, since 
such changes don’t really take effect until the next line of text. Instead they set a flag that 
notifies \@1 of the necessary action. 

\def\sub@on{\ifsublines® 

\let\sub<3change=\relax 

\else 
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\def \sub@change{l}'/, 

\f i} 

\def\sub®off{\ifsublines® 

\def \sub®change{-l}*/, 

\else 

\let\sub®change=\relax 

\fi} 

The \@adv macro advances the current visible line number by the amount specified as its 
argument. This is used to implement \advanceline. 

\def\®adv#l{\ifsublines® 

\advance\subline®num by #1 
\ifnum\subline®num<0 

\edmac®warning{\string\advanceline\space produced 
a sub-line number less than zero.}'/, 

\subline®num=0 

\fi 

\else 

\advance\line®num by #1 
\ifnum\line®num<0 

\edmac®warning{\string\advanceline\space produced 
a line number less than zero.}'/, 

\line®num=0 

\fi 

\f i 

\set®line®action} 

The \®set macro sets the current visible line number to the value specified as its 
argument. This is used to implement \setline. 

\def\®set#l{\ifsublines® 

\subline®num=#l 

\else 

\line®num=#l 
\f i 

\set®line®action} 

\page@action adds an entry to the action-code list to change the page number. 

\def \page®action{'/, 

\xright@appenditem{\the\absline@num}\to\actionlines@list 

\xright@appenditem{\next@page@num}\to\actions@list} 

\set@line@action adds an entry to the action-code list to change the visible line 
number. 

\def \set@line@action{'/, 

\xright@appenditem{\the\absline@num}\to\actionlines@list 
\ifsublinesO 

\<§tempcnt a=-\subline<§num 

\else 

\@tempcnta=-\line@num 
\f i 

\advance\@tempcnta by -5000 

\xright@appenditem{\the\@tempcnta}\to\actions@list} 

\sub@action adds an entry to the action-code list to turn sub-lineation on or off, 
according to the current value of the \if sublines® flag. 

\def \sub@action{'/, 

\xright@appenditem{\the\absline@num}\to\actionlines@list 
\ifsublines® 


\@adv 


\@set 


\page@action 


\set©line®action 


\sub®action 
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\lock@on 

\do@lockon 


\lock@off 

\do@lockoff 

\skip@lockoff 


\@ref 

\insert@count 


\xright@appenditem{-1001}\to\actions@list 

\else 

\xright@appenditem{-1002}\to\actions@list 

\fi} 

\lock@on adds an entry to the action-code list to turn line number locking on. The 
current setting of the sub-lineation flag tells us whether this applies to line numbers or sub-line 
numbers. 

Adding commands to the action list is slow, and it’s very often the case that a lock-on 
command is immediately followed by a lock-off command in the line-list file, and therefore 
really does nothing. We use a look-ahead scheme here to detect such pairs, and add nothing 
to the line-list in those cases. 

\def\lock@on{\futurelet\next\do@lockon} 

\def \do@lockon{'/, 

\ifx\next\lock@off 

\global\let\lock@off=\skip@lockoff 
\else 

\xright@appenditem{\the\absline@num}\to\actionlines@list 
\ifsublines® 

\xright@appenditem{-1005}\to\actions@list 
\ifcase\sub@lock 
\sub@lock=l 
\else 

\sub@lock=0 

\fi 

\else 

\xright@appenditem{-1003}\to\actions@list 
\ifcase\@lock 
\@lock=l 
\else 

\@lock=0 

\fi 

\fi 

\fi} 

\lock@of f adds an entry to the action-code list to turn line number locking off. 

\def \do@lockof f {*/, 

\xright<§appenditem{\the\absline<9num}\to\actionlines@list 
\ifsublines® 

\xright@appenditem{-1006}\to\actions@list 

\ifnum\sub@lock=2 

\sub@lock=3 

\else 

\sub@lock=0 

Yfi 

\else 

\xright@appenditem{-1004}\to\actions@list 

\ifnum\@lock=2 

\@lock=3 

\else 

\@lock=0 
\fi 
\f i} 

\def\skip@lockoff{\global\let\lock@off=\do@lockoff} 

\global\let\lock@off=\do®lockoff 

\@ref marks the start of a passage, for creation of a footnote reference. It takes two 
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arguments: 

• #1, the number of entries to add to \insertlines@list for this reference. This value, 
here and within \text, which computes it and writes it to the line-list file, will be stored 
in the \insert@count counter. 

\newcount\insert©count 

• #2, a sequence of other line-list-file commands, executed to determine the ending line- 
number. (This may also include other \@ref commands, corresponding to uses of 
\text within the first argument of another instance of \text.) 

When nesting of \@ref commands does occur, it’s necessary to temporarily redefine 
\@ref within \@ref, so that we’re only doing one of these at a time. 

\def\dummy@ref#1#2{#2} 

The first thing \@ref itself does is to add the specified number of items to the 
\insertlines@list list. 

\def \@ref #1#2{'/, 

\global\insert©count=#l 

\loop\ifnum\insert@count>0 

\xright@appenditem{\the\absline@num}\to\insertlines@list 
\global\advance\insert<3count by -1 
\repeat 

Next, process the second argument to determine the page and line numbers for the end of 
this lemma. We temporarily equate \@ref to a different macro that just executes its argument, 
so that nested \@ref commands are just skipped this time. Some other macros need to be 
temporarily redefined to suppress their action. 

\begingroup 

\let\@ref=\dummy©ref 
\let\page@action=\relax 
\let\sub©action=\relax 
\let\set©line@action=\relax 
\let\@lab=\relax 
#2 

\global\endpage@num=\page@num 

\global\endline©num=\line©num 

\global\endsubline@num=\subline@num 

\endgroup 

Now store all the information about the location of the lemma’s start and end in 
\line@list. 

\xright@appenditem'/, 

{\the\page@num| \the\line<3num|'/, 

\ifsublines© \the\subline@num \else 0\fi|'/, 

\the\endpage@numI \the\endline@num I'/, 

\ifsublines© \the\endsubline@num \else 0\fi}\to\line@list 
Finally, execute the second argument of \@ref again, to perform for real all the commands 
within it. 

# 2 } 

5.6 Writing to the line-list file 

We’ve now defined all the counters, lists, and commands involved in reading the line-list file 
at the start of a section. Now we’ll cover the commands that EDMAC uses within the text of a 
section to write commands out to the line-list. 


\duirany@ref 


\linenum@out 
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The file will be opened on output stream \linenum@out. 

\newwrite\linenum@out 

\iff irst@linenum@out@ Once any file is opened on this stream, we keep it open forever, or else switch to another 

\f irst@linenum@out@trul®le that we keep open. The reason is that we want the output routine to write the page number 
\f irst@linenum@out@f alias' every page to this file; otherwise we’d have to write it at the start of every line. But it’s 
not very easy for the output routine to tell whether an output stream is open or not. There’s 
no way to test the status of a particular output stream directly, and the asynchronous nature of 
output routines makes the status hard to determine by other means. 

We can manage pretty well by means of the \iffirstSlinenumSout® flag; its inelegant 
name suggests the nature of the problem that made its creation necessary. It’s set to be true 
before any \linenum@out file is opened. When such a file is opened for the first time, it’s 
done using \immediate, so that it will at once be safe for the output routine to write to it; we 
then set this flag to false. 

\newif\iffirst@linenum@out@ 

\first@linenum@out@true 

\line@list@stuff The \line@list@stuf f macro, which is called by \beginnumbering, performs all the 
line-list operations needed at the start of a section. Its argument is the name of the line-list 
tile. 

\def \line@list ©stuff #1{'/, 

First, use the commands of the previous section to interpret the line-list file from the last 

run. 

\read@linelist{#l}'/, 

Now close the current output line-list file, if any, and open a new one. The first 
time we open a line-list file for output, we do it using \immediate, and clear the 
\iffirst®linenum@out@ flag. 

\iffirst@linenum@out@ 

\immediate\closeout\linenum@out 
\global\first@linenum@out@false 
\immediate\openout\linenum@out=#l 
\else 

If we get here, then this is not the first line-list we’ve seen, so we don’t open or close the files 
immediately. We also need to insert a \@page command, since this might begin in the middle 
of a page. 

\closeout\linenum@out 
\openout\linenum®out=#1 
\page@start 
\fi} 

\new@line The \new@line macro sends the \@1 command to the line-list file, to mark the start of a 
new text line. 

\def\new@line{\write\linenum@out{\string\@l}} 

\flagSstart We enclose a lemma marked by \text in \flag@start and \flag@end: these send 
\flagSend the \®ref command to the line-list file, \text is responsible for setting the value of 
\insert@count appropriately; it actually gets done by the various footnote macros. 

\def \f lag@start{'/, 

\edef \next{\write\linenum@out{'/, 

\string\@ref [\the\insert@count] [}}'/, 

\next} 

\def\flag@end{\write\linenum@out{] }} 

\page@start \page@start writes a command to the line-list file noting the current page number. When 
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used within an output routine, this should be called so as to place its \write within the box 
that gets shipped out, and as close to the top of that box as possible. 

\def \page@start{'/, 

\iffirst@linenum@out@ \else 

\write\linenum@out{\string\@page [\the\pageno] }'/, 

\fi} 

\startsub and \endsub turn sub-lineation on and off, by writing appropriate instruc¬ 
tions to the line-list file. When sub-lineation is in effect, the line number counter is frozen 
and the sub-line counter advances instead. If one of these commands appears in the middle 
of a line, it doesn’t take effect until the next line; in other words, a line is counted as a line or 
sub-line depending on what it started out as, even if that changes in the middle. 

We tinker with \lastskip because a command of either sort really needs to be attached 
to the last word preceding the change, not the first word that follows the change. This is 
because sub-lineation will often turn on and off in mid-line—stage directions, for example, 
often are mixed with dialogue in that way—and when a line is mixed we want to label it using 
the system that was in effect at its start. But when sub-lineation begins at the very start of a 
line we have a problem, if we don’t put in this code. 

\def\startsub{\dimenO\lastskip 
\ifdim\dimenO>Opt \unskip \fi 
\write\linenum@out{\string\sub@on}'/, 

\ifdim\dimenO>Opt \hskip\dimenO \fi} 

\def\endsub{\dimenO\lastskip 
\ifdim\dimenO>Opt \unskip \fi 
\write\linenum@out{\string\sub@of f }'/, 

\ifdim\dimenO>Opt \hskip\dimenO \fi} 

You can use \advanceline in running text to advance the current visible line-number by 
a specified value, positive or negative. 

\def\advanceline#l{\write\linenum@out{\string\@adv[#1]}} 

You can use \setline in running text to set the current visible line-number to a specified 
positive value. 

\def \setline#l{'/, 

\ifnum#l<0 

\edmac@warning{Bad setline argument.}'/, 

\else 

\write\linenum@out{\string\@set [# 1] }'/, 

\fi} 

You can use \startlock or \endlock in running text to start or end line number locking 
at the current line. They decide whether line numbers or sub-line numbers are affected, 
depending on the current state of the sub-lineation flags. 

\def\startlock{\write\linenum@out{\string\lock@on}} 

\def\endlock{\write\linenum@out{\string\lock@off}} 


\startsub 

\endsub 


\advanceline 


\setline 


\startlock 

\endlock 
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6 Marking text for notes 

The \text macro is used to create all footnotes and endnotes, as well as to print the portion 
of the main text to which a given note or notes is keyed. The idea is to have that lemma appear 
only once in the . tex file: all instances of it in the main text and in the notes are copied from 
that one appearance. 

\text requires two arguments. At any point within numbered text, you use it by saying: 
\text{#l}{#2}/ 


where 

• #1 is the piece of the main text being glossed; it gets added to the main text, and is also 
used as a lemma for notes to it. 

• #2 is a series of subsidiary macros that generate various kinds of notes. The / after 
#2 must appear: it marks the end of the macro. (The TfXbook, p. 204, points out that 
when additional text to be matched follows the arguments like this, spaces following 
the macro are not skipped, which is very desirable since this macro will never be used 
except within text. Having an explicit terminator also helps keep things straight when 
nested calls to \text are used.) Braces around #2 are optional. 

The \text macro may be used (somewhat) recursively; that is, \text may be used within 
its own first argument. The code would be much simpler without this feature, but nested notes 
will commonly be necessary: it’s quite likely that we’ll have an explanatory note for a long 
passage and notes on variants for individual words within that passage. The situation we can’t 
handle is overlapping notes that aren’t nested: for example, one note covering lines 10-15, 
and another covering 12-18. You can handle such cases by using the \lemma and \linenum 
macros within #2: they alter the copy of the lemma and the line numbers that are passed to 
the notes, and hence allow you to overcome any limitations of this system, albeit with extra 
effort. 

The recursive operation of \text will fail if you try to use a copy that is called something 
other than \text. In order to handle recursion, \text needs to redefine its own definition 
temporarily at one point, and that doesn’t work if the macro you are calling is not actually 
named \text. There’s no problem as long as \text is not invoked in the first argument. If 
you want to call \text something else, it is best to create instead a macro that expands to an 
invocation of \text, rather than copying \text and giving it a new name; otherwise you will 
need to add an appropriate definition for your new macro to \morenoexpands. 

Side effects of our line-numbering code make it impossible to use the usual footnote 
macros directly within a paragraph whose lines are numbered (see comments to \do@line, 
p. 49). Instead, the appropriate note-generating command is appended to the list macro 
\inserts@list, and when \pend completes the paragraph it inserts all the notes at the 
proper places. 

Note that we don’t provide previous-note information, although it’s often wanted; your 
own macros must handle that. We can’t do it correctly without keeping track of what kind of 
notes have gone past: it’s not just a matter of remembering the line numbers associated with 
the previous invocation of \text, because that might have been for a different kind of note. It 
is preferable for your footnote macros to store and recall this kind of information if they need 
it. 

An example where some “memory” of line numbers might be required is where there are 
several variant readings per line of text, and you do not wish the line number to be repeated 
for each lemma in the notes. After the first occurrence of the line number, you might want the 
symbol “||” instead of further occurrences, for instance. This can easily be done by a macro 
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like \printlines, if it saves the last value of \@nums that it saw, and then performs a simple 
conditional test to see whether to print a number or a “||” (see p. 102 for an example of how 
to do this). 


6.1 \text itself 

The various note-generating macros might want to request that commands be executed not 
at once, but in close connection with the start or end of the lemma. For example, footnote 
numbers in the text should be connected to the end of the lemma; or, instead of a single macro 
to create a note listing variants, you might want to use several macros in series to create 
individual variants, which would each add information to a private macro or token register, 
which in turn would be formatted and output when all of #2 for the lemma has been read. 

To accomodate this, we provide a list macro to which macros may add commands that 
should subsequently be executed at the end of the lemma when that lemma is added to 
the text of the paragraph. A macro should add its contribution to \end@lemmas by using 
\xleftSappenditem. (Anything that needs to be done at the start of the lemma may be 
handled using \af tergroup, since the commands specified within \text’s second argument 
are executed within a group that ends just before the lemma is added to the main text.) 

\end@lemmas is intended for the few things that need to be associated with the end of the 
lemma, like footnote numbers. Such numbers are not implemented in the current version, and 
indeed no use is currently made of \end@lemmas or of the \af tergroup trick. The general 
approach would be to define a macro to be used within the second argument of \text that 
would add the appropriate command to \end@leminas. 

Commands that are added to this list should always take care not to do anything that adds 
possible line-breaks to the output; otherwise line numbering could be thrown off. 

\list@create{\end@lemmas} 

We now need to define a number of macros that allow us to weed out nested instances 
of \text, and other problematic macros, from our lemma. This is similar to what we did 
in reading the line-list file using \dummy@ref and various redefinitions—and that’s because 
nested \text macros create nested \@ref entries in the line-list file. 

Here’s a macro that takes the same arguments as \text but merely returns the first 
argument and ignores the second. 

\long\def\dummy@text#l#2/{#l} 

We’re going to need another macro that takes one argument and ignores it entirely. This 
one is identical to the HTpX macro of the same name. 

\def\@gobble#l{} 

We need to turn off macro expansion for certain sorts of macros we’re likely to see within 
the lemma and within the notes. 

The first class is font-changing macros. We suppress expansion for them by letting them 
become equal to zero. 32 This is done because we want to pass into our notes the generic 
commands to change to roman or whatever, and not their expansions that will ask for a 
particular style at a specified size. The notes may well be in a smaller font, so the command 
should be expanded later, when the note’s environment is in effect. 

A second sort to turn off includes a few of the accent macros. Most are not a problem: 
an accent that’s expanded to an \accent command may be harder to read but it works just 
the same. The ones that cause problems are: those that use alignments—TjgX seems to get 
confused about the difference between alignment parameters and macro parameters; those 
that use temporary control sequences; and those that look carefully at what the current font is. 

'-Since “control sequences equivalent to characters are not expandable ”—The TfXhank. answer to Exercise 20.14. 


\end@lemmas 


\dummy@text 


\@gobble 


\no@expands 

\morenoexpands 
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6 Marking text for notes 


\text 


\@tag 


\@nums 


(The \copyright macro defined in Plain TgX has this sort of problem as well, but isn’t 
used enough to bother with. That macro, and any other that causes trouble, will get by all 
right if you put a \noexpand in front of it in your file—or a \protect if you’re using NFSS.) 

We also need to eliminate all EDMAC macros like \label and \setline that write things 
to auxiliary files: that writing should be done only once. And we make \text itself, if it 
appears within its own argument, do nothing but copy its first argument. 

Finally, we execute \morenoexpands. The version of \morenoexpands defined here 
does nothing; but you may define a version of your own when you need to add more 
expansion suppressions as needed with your macros. That makes it possible to make such 
additions without needing to copy or modify the standard EDMAC code. If you define your 
own \morenoexpands, you must be very careful about spaces: if the macro adds any spaces 
to the text when it runs, extra space will appear in the main text when \text is used. 

(A related problem, not addressed by these two macros, is that of characters whose 
category code is changed by any the macros used in the arguments to \text. Since the 
category codes are set when the arguments are scanned, macros that depend on changing them 
will not work. We have most often encountered this with characters that are made “active” 
within text in some, but not all, of the languages used within the document. One way around 
the problem, if it takes this form, is to ensure that those characters are always active; within 
languages that make no special use of them, their associated control sequences should simply 
return the proper character.) 


\def \no@expands{\let\rm = 0\let\it=0\let\sl=0\let\bf=0\let\tt=0'/, 
\let\b=0\let\c=0\let\d=0\let\t=0'/, 

\let\select<§@lemmaf ont=0'/, 

\def \protect{\noexpand\protect\noexpand}‘/, 
\let\startsub=\relax \let\endsub=\relax 
\let\startlock=\relax \let\endlock=\relax 
\let\label=\@gobble \let\pageref=\@gobble 
\let\lineref=\@gobble \let\sublineref=\@gobble 
\let\setline=\@gobble \let\advanceline=\@gobble 
\let\text=\dummy@text 
\morenoexpands} 

\let\morenoexpands=\relax 


Now we begin \text itself. The definition requires a / after the arguments: this eliminates 
the possibility of problems about knowing where #2 ends. This also changes the handling of 
spaces following an invocation of the macro: normally such spaces are skipped, but in this 
case they’re significant because #2 is a “delimited parameter”. Since \text is always used in 
running text, it seems more appropriate to pay attention to spaces than to skip them. 

When executed, \text first ensures that we’re in horizontal mode. 


\long\def\text#l#2/{\leavevmode 

Our normal lemma is just argument #1; but that argument could have further invocations 
of \text within it. We get a copy of the lemma without any \text macros within it by 
temporarily redefining \text to just copy its first argument and ignore the other, and then 
expand #1 into \@tag, our lemma. 

This is done within a group that starts here, in order to get the original \text restored; 
within this group we’ve also turned off the expansion of those control sequences commonly 
found within text that can cause trouble for us. 


\begingroup 
\no@expands 
\xdef \@tag{#l}*/, 

Prepare more data for the benefit of note-generating macros: the line references and font 
specifier for this lemma go to \@mims. 

\set@line 
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6.1 \text ITSELF 


\insert@count will be altered by the note-generating macros: it counts the number of 
deferred footnotes or other insertions generated by this instance of \text. 
\global\insert@count=0 

Now process the note-generating macros in argument #2 (i.e., \Afootnote, \lemma, 
etc.), \ignorespaces is here to skip over any spaces that might appear at the start of #2; 
otherwise they wind up in the main text. Footnote and other macros that are used within #2 
should all end with \ignorespaces as well, to skip any spaces between macros when several 
are used in series. 

\ignorespaces #2\relax 

Finally, we’re ready to admit the first argument into the current paragraph. 

It’s important that we generate and output all the notes for this chunk of text before putting 
the text into the paragraph: notes that are referenced by line number should generally be tied 
to the start of the passage they gloss, not the end. That should all be done within the expansion 
of #2 above, or in \af tergroup commands within that expansion. 

\flag@start 
\endgroup 
#17. 

Finally, we add any insertions that are associated with the end of the lemma. Footnotes 
that are identified by symbols rather than by where the lemma begins in the main text need to 
be done here, and not above. 

\ifx\end@lemmas\empty \else 
\gl@p\end@lemmas\to\x@lemma 
\x@lemma 

\global\let\x@leirana=\relax 
\f i 

\flagOend} 

The \set@line macro is called by \text to put the line-reference field and font specifier 
for the current block of text into \@nums. 

One instance of \text may generate several notes, or it may generate none—it’s legiti¬ 
mate for argument #2 to \text to be empty. But \f lagOstart and \f lagSend induce the 
generation of a single entry in \line@list during the next run, and it’s vital to also remove 
one and only one \line@list entry here. 

\def \set@line{'/, 

If no more lines are listed in \line@list, something’s wrong—probably just some 
change in the input. We set all the numbers to zeros, following an old publishing convention 
for numerical references that haven’t yet been resolved. 

\ifx\line@list\empty 

\global\noteschanged@true 

\xdef \@nums{000 1000 I 000 1000 I 000 1000 I \edf ontQinf o}*/. 

All’s well; our reference is there. 

\else 

\gl@p\line@list\to\@tempb 

\xdef \@nums{\@tempb I \edf ont@inf o}'/, 

\global\let\@tempb=\undefined 

\fi} 

The macro \edf ontSinf o returns coded information about the current font; the coding 
depends on the font selection scheme in use. See section 8.1 for more on font selection 
schemes. 

\ifx\selectfont\undefined '/, we’re using Plain fonts 


\set@line 


\edfontOinfo 
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6 Marking text for notes 


\lemma 


\linenum 


\line@set 


\@add 


\def\edfontOinf o{\the\f am} 

\else '/, we’re using NFSS 

\def\edfont@info{\f@encoding/\f@family/\f©series/\f©shape} 
\fi 


6.2 Substitute lemma 

The \lemma macro allows you to change the lemma that’s passed on to the notes. 

\def\lemma#l{\xdef\@tag{#l}\ignorespaces} 


6.3 Substitute line numbers 

The \linemim macro can change any or all of the page and line numbers that are passed on 
to the notes. 

As argument \linenum takes a set of seven parameters separated by vertical bars, in the 
format used internally for \@nums (see p. 32): the starting page, line, and sub-line numbers, 
followed by the ending page, line, and sub-line numbers, and then the font specifier for the 
lemma. However, you can omit any parameters you don’t want to change, and you can omit 
a string of vertical bars at the end of the argument. Hence \linenum{18141 0 118 I 7 111 0} is 
an invocation that changes all the parameters, but \linenum{ 13} only changes the starting 
line number, and leaves the rest unaltered. 

We use \\ as an internal separator for the macro parameters. 

\def \linenum#l{'/, 

\xdef\@tempa{#lI I I I I I I \noexpand\\\@nums}'/, 

\global\let\@nums=\empty 

\expandafter\line@set\@tempaI\\\ignorespaces} 

\linenum calls \line@set to do the actual work; it looks at the first number in the 
argument to \linenum, sets the corresponding value in \@nums, and then calls itself to 
process the next number in the \linenum argument, if there are more numbers in \@nums 
to process. 

\def \line@set#l I #2\\#3 I #4\\{ , / ( 

\gdef \@tempb{#l}*/, 

\ifx\@tempb\empty 

\@add{#3}'/, 

\else 

\@add{#l}’/, 

\f i 

\gdef \@tempb{#4}*/, 

\ifx\<3tempb\empty\else 

\<§add{ | }\line@set#2\\#4\Y/, 

\fi} 

\line@set uses \@add to tack numbers or vertical bars onto the right hand end of 
\@nums. 

\def\@add#l{\xdef\@nums{\@nums#l}} 
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7 Paragraph decomposition and reassembly 


In order to be able to count the lines of text and affix line numbers, we add an extra stage of 
processing for each paragraph. We send the paragraph into a box register, rather than straight 
onto the vertical list, and when the paragraph ends we slice the paragraph into its component 
lines; to each line we add any notes or line numbers, add a command to write to the line-list, 
and then at last send the line to the vertical list. This section contains all the code for this 
processing. 

7.1 Boxes, counters, \pstart and \pend 

Here are numbers and flags that are used internally in the course of the paragraph decomposi¬ 
tion. 

When we first form the paragraph, it goes into a box register, \raw@text, instead of onto 
the current vertical list. The \ifnumberedpar® flag will be true while a paragraph is being 
processed in that way. \num@lines will store the number of lines in the paragraph when it’s 
complete. When we chop it up into lines, each line in turn goes into the \one@line register, 
and \par@line will be the number of that line within the paragraph. 

\newbox\raw®text 
\newifWf numberedpar® 

\newcount\num®lines 
\newbox\one®line 
\newcount\par®line 

\pstart starts the paragraph by clearing the \inserts@list list and other relevant 
variables, and then arranges for the subsequent text to go into the \raw@text box. \pstart 
needs to appear at the start of every paragraph that’s to be numbered; the \autopar command 
below may be used to insert these commands automatically. 

Beware: everything that occurs between \pstart and \pend is happening within a group; 
definitions must be global if you want them to survive past the end of the paragraph. 

\def\pstart{\ifnumbering \else 

\errmessage{\string\pstart\space must be used 
within a numbered section}'/, 

\beginnumbering 
\f i 

\ifnumberedpar® 

\errmessage{\string\pstart\space encountered while another 
\string\pstart\space was in effect}*/, 

\pend 
\f i 

Mist® clear {\inserts@list}'/, 

\global\let\next®insert=\empty 
\begingroup\normal@pars 
\global\setbox\raw®text=\vbox\bgroup 
\numberedpar@true} 

\pend must be used to end a numbered paragraph. \pend 

\def\pend{\ifnumbering \else 

\errmessage{\string\pend\space must be used 
within a numbered section}*/, 

\f i 

\ifnumberedpar® \else 

\errmessage{\string\pend\space must follow a \string\pstart}'/, 

\fi 


\raw@text 
\ifnumberedpar® 
\numberedpar@true 
\numberedpar®false 
\num®lines 
\one®line 
\par®line 


\pstart 
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7 Paragraph decomposition and reassembly 


\autopar 


\normal@pars 


We set all the usual interline penalties to zero and then immediately call \endgraf to end the 
paragraph; this ensures that there’ll be no large interline penalties to prevent us from slicing 
the paragraph into pieces. These penalties revert to the values that you set when the group for 
the \vbox ends. Then we call \do@line to slice a line off the top of the paragraph, add a 
line number and footnotes, and restore it to the page; we keep doing this until there aren’t any 
more lines left. 

\brokenpenalty=0 \clubpenalty=0 

\displaywidowpenalty=0 \interlinepenalty=0 \predisplaypenalty=0 
\postdisplaypenalty=0 \widowpenalty=0 
\endgraf\global\num@lines=\prevgraf\egroup 
\global\par@line=0 
\loop\ifvbox\raw@text 
\do@line 
\repeat 

Deal with any leftover notes, and then end the group that was begun in the \pstart. 

\flushSnotes 

\endgroup 

\ignorespaces} 

In most cases it’s only an annoyance to have to label the paragraphs to be numbered 
with \pstart and \pend. \autopar will do that automatically, allowing you to start a 
paragraph with its first word and no other preliminaries, and to end it with a blank line or 
a \par command. The command should be issued within a group, after \beginnumbering 
has been used to start the numbering; all paragraphs within the group will be affected. 

A few situations can cause problems. One is a paragraph that begins with a begin-group 
character or command: \pstart will not get invoked until after such a group beginning 
is processed; as a result the character that ends the group will be mistaken for the end of 
the \vbox that \pstart creates, and the rest of the paragraph will not be numbered. Such 
paragraphs need to be started explicitly using \indent, \noindent, or \leavevmode—or 
\pstart, since you can still include your own \pstart and \pend commands even with 
\autopar on. 

Prematurely ending the group within which \autopar is in effect will cause a similar 
problem. You must either leave a blank line or use \par to end the last paragraph before you 
end the group. 

The functioning of this macro is more tricky than the usual \everypar: we don’t want 
anything to go onto the vertical list at all, so we have to end the paragraph, erase any evidence 
that it ever existed, and start it again using \pstart. We remove the paragraph-indentation 
box using \lastbox and save the width, and then skip backwards over the \parskip that’s 
been added for this paragraph. Then we start again with \pstart, restoring the indentation 
that we saved, and locally change \par so that it’ll do our \pend for us. 

\def\autopar{\ifnumbering \else 

\errmessage{\string\autopar\space must be used 
within a numbered section}'/, 

\beginnumbering 
\f i 

\everypar={\setboxO=\lastbox 
\endgraf \vskip-\parskip 
\pstart \noindent \kern\wdO 
\let\par=\pend}*/, 

\ignorespaces} 

We also define a macro which we can rely on to turn off the \autopar definitions at 
various important places, if they are in force. We’ll want to do this within footnotes, for 
example. 
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7.2 Processing one line 


\def\normalSpars{\everypar={}\let\par\endgraf} 


7.2 Processing one line 

The \do@line macro is called by \pend to do all the processing for a single line of text. 
\def \do@line{'/, 

First, pull one line off the top of \raw@text, which contains the remaining unprocessed 
lines of the paragraph, \vbadness must be cranked up to suppress Underfull vbox errors 
from \vsplit; \splittopskip will be inserted at the top of \one@line, so we zero it. 
(This skip will appear in the final vertical list, just before every \baselineskip.) 

{\vbadness=10000 \splittopskip=Opt 

\global\setbox\one@line=\vsplit\raw@text to\baselineskip}'/, 

\one@line comes out of \vsplit as a vbox; we now convert it to an hbox. 

This operation breaks if there’s an insert connected to the line. In that case, the content 
of the vbox \one@line before this operation is not just an hbox; it’s an hbox followed by 
an insert. After the \unvbox, the last thing on the vertical list is not the hbox but the insert. 
The result is that our line heads prematurely onto the vertical list—with incorrect interline 
spacing, because there’s still a level of boxing that should be undone—and \one@line is 
the void box, because the last thing on the vertical list wasn’t a box. The subsequent code 
consequently prints a blank line. 

All this is why insertions need to be kept out of the paragraph until this point; our footnote 
macros add all insertions to list macros, and the \add@inserts macro below puts them onto 
the vertical list at the proper time. 

\unvbox\one@line \global\setbox\one@line=\lastbox 

Calculate the line and page number for this line. 

\getline@num 

Now we’ll add the line to the vertical list, with a line number attached if necessary. 

The \hf il\hbox to \wd\one@line is necessary to position a hangindented line cor¬ 
rectly: without it, \one@line gets stretched out to \hsize in width and the indentation 
disappears. This is because hanging indentation is done by setting a nonzero “shift” value 
for the hbox that contains the line within the vbox, and that shift vanishes, like the penalties, 
when we slice up the paragraph; one can examine the \ht or \wd of a box within TpX, but 
it provides no way of examining the \ shift, though it would be a trivial modification of the 
TpX program to add that function, (\parshape also works by setting a nonzero shift, but this 
fix isn’t good enough there, because the total width of the lines is also varied in that case; our 
algorithm will push all the lines of text over to the right margin.) 

We put the \new@line start-of-line marker in the output list at this point too; putting it 
within the \hbox here ensures that it comes before any of the text of the line in the vertical 
list, but cannot be broken away from it at a page break. 

\hbox to \hsize{\affixline@num{'/, 

\hfil\hbox to \wd\one@line{\new@line\unhbox\one@line}}}'/, 

Now we pull the footnotes and insertions for this line out of the \inserts@list list 
macro and attach them. 

\add@inserts 

Penalties get stripped off by this slicing process; the following macro puts them back in 
as the last step. 

\add@penalties} 


\do@line 
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7 Paragraph decomposition and reassembly 


\getline@num 


\do@ballast 


\ballast 

\ballast@count 


\do@actions 

\do@actions@next 


7.3 Line and page number computation 

The \getline@num macro determines the page and line numbers for the line we’re about to 
send to the vertical list. 

\def \getline@num{'/, 

\global\advance\absline@num by 1 

\do@actions 

\do@ballast 

\ifsublinesO 

\ifnum\sub@lock<2 

\global\advance\subline@num by 1 
\fi 
\else 

\ifnum\@lock<2 

\global\advance\line@num by 1 
\global\subline@num=0 
\fi 
\fi} 

The real work in the macro above is done in \do@actions, but before we plunge into 
that, let’s get \do@ballast out of the way. This macro looks to see if there is an action to be 
performed on the next line, and if it is going to be a page break action, \do@ballast decreases 
the \ballast@count counter by the amount of \ballast. This means, in practice, that when 
\add@penalties assigns penalties at this point, TpX will be given extra encouragement to 
break the page here (see p. 55). 

First we set up the required counters; they are initially set to zero, and will remain so 
unless you say \ballast={.«wie figure) in your document. 

\newcount\ballast@count 

\newcount\ballast 

And here is \do@ballast itself. It advances \absline@num within the protection of a group 
to make its check for what happens on the next line. 

\def\do@ballast{\global\ballast@count=0 
\begingroup 

\advance\absline@num by 1 
\ifnum\next@actionline=\absline@num 
\ifnum\next@action>-1001 

\global\advance\ballast@count by -\ballast 
\fi 
\fi 

\endgroup} 

The \do@actions macro looks at the list of actions to take at particular absolute line 
numbers, and does everything that’s specified for the current line. 

It may call itself recursively, and to do this efficiently (using TpX’s optimization for 
tail recursion), we define a control-sequence called \do@actions@next that is always the 
last thing that \do@actions does. If there could be more actions to process for this line, 
\do@actions@next is set equal to \do@actions; otherwise it’s just \relax. 

\def \do@actions{'/, 

\global\let\do@actions@next=\relax 

\ifnum\absline@num<\next@actionline\else 

First, page number changes, which will generally be the most common actions. If we’re 
restarting lineation on each page, this is where it happens. 

\ifnum\next<§action>-1001 
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7.3 Line and page number computation 


\global\page@num=\next@action 

\ifbypage@ 

\global\line@num=0 \global\subline@num=0 
\fi 

Next, we handle commands that change the line-number values. (We subtract 5001 
rather than 5000 here because the line number is going to be incremented automatically in 
\getline@num.) 

\else 

\ifnum\next@action<-4999 
\@tempcnta=-\next©action 
\advance\@tempcnta by -5001 
\ifsublines© 

\global\subline@num=\@tempcnta 

\else 

\global\line@num=\@tempcnta 

\fi 

It’s one of the fixed codes. We rescale the value in \@tempcnta so that we can use a case 
statement. 

\else 

\@tempcnta=-\next@action 
\advance\@tempcnta by -1000 
\ifcase\@tempcnta 

Commands that turn sub-lineation on and off. 

\or 

\global\sublines@true 

\or 

\global\sublines@false 

Line locking. We ignore these indications when they don’t appear at the right times: a 
start-lock should appear only when locking is entirely off, and an end-lock should only appear 
when locking is in the “middle”. 

\or 

\ifcase\@lock 
\global\©lock=l 
\else 

\global\@lock=0 

\fi 

\or 

\ifnum\@lock=2 

\global\@lock=3 

\else 

\global\@lock=0 

\fi 

Sub-line locking. Same comments as for line locking. 

\or 

\ifcase\sub@lock 
\global\sub@lock=l 
\else 

\global\sub@lock=0 

\fi 

\or 

\ifnum\sub@lock=2 

\global\sub@lock=3 

\else 
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7 Paragraph decomposition and reassembly 


\global\sub@lock=0 

\fi 

If we get here, some unknown action code has been encountered. 
\else 

\edmac@warning{Bad action code, 

value \next@action.}'/, 

\fi 

\fi 

\fi 


Now we get information about the next action off the list, and then set 
\add@inserts@next so that we’ll call ourself recursively: the next action might also be 
for this line. 

There’s no warning if we find \actionlines@list empty, since that will always happen 
near the end of the section. 


\ifx\actionlines@list\empty 

\gdef \next@act ionlinef 1000000}*/, 

\else 

\gl@p\actionlines@list\to\next@actionline 
\gl@p\actions@list\to\next©action 
\global\let\do@actions<3next=\do@actions 

Yfi 

\fi 


Make the recursive call, if necessary. 
\do@actions@next} 


7.4 Line number printing 

\aff ixlineOnum \affixlineSnum takes a single argument, a series of commands for printing the line just 
split off by \do@line; it puts that line back on the vertical list, and adds a line number if 
necessary. 

To determine whether we need to affix a line number to this line, we compute the 
following: 

n = int((linenum — firstlinenum) / linenumincrement) 
m = firstlinenum + (n x linenumincrement) 

(where int truncates a real number to an integer), m will be equal to linenum only if we’re 
to paste a number on here. However, the formula breaks down for the first line to number 
(and any before that), so we check that case separately: if \line@mim < \f irstlinenum, 
we compare the two directly instead of making these calculations. 

We compute, in the scratch counter \@tempcnta, the number of the next line that should 
be printed with a number (m in the above discussion), and move the current line number into 
the counter \@tempcntb for comparison. 

First, the case when we’re within a sub-line range. 

\def \af f ixline@num#l{'/, 

\ifsublines® 

\@tempcntb=\subline@num 
\ifnum\subline@num>\firstsublinenum 
\@tempcnta=\subline@num 
\advance\@tempcnta by-\firstsublinenum 
\divide\@tempcnta by\sublinenumincrement 
\multiply\@tempcnta by\sublinenumincrement 
\advance\@tempcnta by\firstsublinenum 
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7.4 Line NUMBER PRINTING 


\else 

\<3tempcnta=\f irstsublinenum 
\fi 

That takes care of computing the values for comparison, but if line number locking is in 
effect we have to make a further check. If this check fails, then we disable the line-number 
display by setting the counters to arbitrary but unequal values. 

\ifcase\sub@lock 
\or 

\ifnum\sublock@disp=l 

\@tempcntb=0 \@tempcnta=l 
\fi 
\or 

\ifnum\sublock@disp=2 \else 
\@tempcntb=0 \@tempcnta=l 
\fi 
\or 

\ifnum\sublock@disp=0 

\@tempcntb=0 \<§tempcnta=l 
\fi 
\fi 

Now the line number case, which works the same way. 

\else 

\@tempcntb=\line@num 
\ifnum\line@num>\firstlinenum 
\<§tempcnta=\line@num 
\advance\@tempcnta by-\firstlinenum 
\divide\@tempcnta by\linenumincrement 
\multiply\@tempcnta by\linenumincrement 
\advance\@tempcnta by\firstlinenum 
\else 

\@tempcnta=\firstlinenum 
\fi 

A locking check for sub-lines, just like the version for line numbers above. 

\ifcase\@lock 
\or 

\ifnum\lock@disp=l 

\@tempcntb=0 \@tempcnta=l 
\fi 
\or 

\ifnum\lock@disp=2 \else 

\@tempcntb=0 \<§tempcnta=l 
\fi 
\or 

\ifnum\lock@disp=0 

\<§tempcntb=0 \<§tempcnta=l 
\f i 
\fi 
\fi 

The following test is true if we need to print a line number. 

\ifnum\@tempcnta=\@tempcntb 

If we got here, we’re going to print a line number; so now we need to calculate a number 
that will tell us which side of the page will get the line number. We start from \line@margin, 
which asks for one side always if it’s less than 2; and then if the side does depend on the 
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page number, we simply add the page number to this side code—because the values of 
\line@margin have been devised so that this produces a number that’s even for left-margin 
numbers and odd for right-margin numbers. 

\@tempcntb=\line@margin 

\ifnum\@tempcntb>l 

\advance\@tempcntb by\page@num 

Yfi 

Now print the line (#1) with its page number. 

\if odd\@tempcntb 

#l\rlap{{\rightlinenum}}'/, 

\else 

\llap{{\lef tlinenum}}#l'/, 

\fi 

\else 

If no line number is to be appended, we just print the line as is. 

#17. 

\fi 

Now fix the lock counters, if necessary. A value of 1 is advanced to 2; 3 advances to 0; 
other values are unchanged. 

\ifcase\@lock 
\or 

\global\@lock=2 
\or \or 

\global\@lock=0 
\f i 

\ifcase\sub@lock 
\or 

\global\sub@lock=2 
\or \or 

\global\sub@lock=0 

\fi} 

7.5 Add insertions to the vertical list 

\inserts@list \inserts@list is the list macro that contains the inserts that we save up for one paragraph. 
\list@create{\inserts@list} 

\add<§inserts \add@inserts is the penultimate macro used by \do@line; it takes insertions saved in 
\add®insertsOnext a list macro and sends them onto the vertical list. 

It may call itself recursively, and to do this efficiently (using TpX’s optimization for 
tail recursion), we define a control-sequence called \add@inserts@next that is always the 
last thing that \add@inserts does. If there could be more inserts to process for this line, 
\add@inserts@next is set equal to \add@inserts; otherwise it’s just \relax. 

\def \add@inserts{'/, 

\global\let\add@inserts@next=\relax 

If \inserts@list is empty, there aren’t any more notes or insertions for this paragraph, 
and we needn’t waste our time. 

\ifx\inserts@list\empty \else 

The \next @ insert macro records the number of the line that receives the next footnote 
or other insert; it’s empty when we start out, and just after we’ve affixed a note or insert. 

\ifx\next©insert\empty 
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\ifx\insertlines®list\empty 
\global\noteschanged@true 
\gdef\next ©insert {100000}'/, 

\else 

\gl@p\insertlines@list\to\next@insert 

\fi 

\fi 

If the next insert’s for this line, tack it on (and then erase the contents of the insert macro, 
as it could be quite large). In that case, we also set \add@inserts@next so that we’ll call 
ourself recursively: there might be another insert for this same line. 

\ifnum\next@insert=\absline@num 

\gl@p\inserts@list\to\@insert 

\@insert 

\global\let\@insert=\undefined 
\global\let\next@insert=\empty 
\global\let\add@inserts@next=\add@inserts 
\fi 
\fi 

Make the recursive call, if necessary. 

\add@inserts@next} 


7.6 Penalties 

\add@penalties is the last macro used by \do@line. It adds up the club, widow, and 
interline penalties, and puts a single penalty of the appropriate size back into the paragraph; 
these penalties get removed by the \vsplit operation, \displaywidowpenalty and 
\brokenpenalty are not restored, since we have no easy way to find out where we should 
insert them. 

In this code, \num@lines is the number of lines in the whole paragraph, and \par@line 
is the line we’re working on at the moment. The counter \@tempcnta is used to calculate 
and accumulate the penalty; it is initially set to the value of \ballast@count, which has 
been worked out in \do@ballast above fp. 50). Finally, the penalty is checked to see that it 
doesn’t go below —10000. 

\def\add@penalties{\@tempcnta=\ballast@count 
\ifnum\num@lines>l 

\global\advance\par@line by 1 
\ifnum\par@line=l 

\advance\@tempcnta by \clubpenalty 
\f i 

\@tempcntb=\par@line \advance\@tempcntb by 1 
\ifnum\@tempcntb=\num@lines 

\advance\@tempcnta by \widowpenalty 
\f i 

\ifnum\par@line<\num@lines 

\advance\@tempcnta by \interlinepenalty 

Yfi 
\f i 

\ifnum\@tempcnta=0 

\relax 

\else 

\ifnum\@tempcnta>-10000 
\penalty\@tempcnta 
\else 


\add@penalties 
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\penalty -10000 
\fi 
\fi} 

7.7 Printing leftover notes 

\f lushQnotes The \f lushOnotes macro is called after the entire paragraph has been sliced up and sent on 
to the vertical list. If the number of notes to this paragraph has increased since the last run 
of TpX, then there can be leftover notes that haven’t yet been printed. An appropriate error 
message will be printed elsewhere; but it’s best to go ahead and print these notes somewhere, 
even if it’s not in quite the right place. What we do is dump them all out here, so that they 
should be printed on the same page as the last line of the paragraph. We can hope that’s not 
too far from the proper location, to which they’ll move on the next run. 

\def \f lush@notes{'/, 

\@xloop 

\ifx\inserts@list\empty \else 
\gl@p\inserts@list\to\@insert 
\@insert 

\global\let\@insert=\undefined 
\repeat} 

\@xloop \@xloop is a variant of the Plain TpX \loop macro, useful when it’s hard to construct a 
positive test using the TpX \if commands—as in \f lushSnotes above. One says \@xloop 
. . . \if . . . \else . . . \repeat, and the action following \else is repeated as long as 
the \if test fails. (This macro will work wherever the Plain TpX \loop is used, too, so we 
could just call it \loop; but it seems preferable not to change the definitions of any of the 
standard macros.) 

This variant of \loop was introduced by Alois Kabelschacht in TUGboat 8 (1987), 
pp. 184-5. 

\def \@xloop#l\repeat{‘/, 

\def \body{#l\expandafter\body\f i}*/, 

\body} 
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The footnote macros are adapted from those in PLAIN TgX, but they differ in these respects: 
the outer-level commands must add other commands to a list macro rather than doing 
insertions immediately; there are five separate levels of footnotes, not just one; and there 
are options to reformat footnotes into paragraphs or into multiple columns. 

8.1 Fonts (using the Plain font selection scheme) 

Before getting into the details of formatting the notes, we set up some font macros. It is the 
notes that present the greatest challenge for our font-handling mechanism, because we need 
to be able to take fragments of our main text and print them in different forms: it is common 
to reduce the size, for example, without otherwise changing the fonts used. 

EDMAC supports two different systems for font handling: the “Plain font selection scheme”, 
that is, the original Plain TpX system, with some minor extensions needed for our purposes 
here; and the New Font Selection Scheme (NFSS) of Frank Mittelbach and Rainer Schopf, 
as adapted for use with PLAIN TgX by Wayne Sullivan. The NFSS is strongly recommended, 
but the Plain font selection scheme will suffice for simple applications. 

EDMAC will define different versions of the following macros, depending on which 
scheme is used: \edfontSinfo, \notefontsetup, \notenumfont, \numlabfont, and 
\select@lemmafont. If the Plain font selection scheme is chosen, EDMAC will also define an 
\eightpoint macro and load additional Computer Modern fonts for use with it. 

The choice of a font selection scheme is made implicitly. If NFSS has been loaded, it 
is assumed that you want to use it; otherwise EDMAC uses the Plain font selection scheme. 
If you’re using NFSS, load it and make any choices of customizations and standard settings 
before you load EDMAC. 

We know that NFSS has been loaded if the \selectf ont macro is present. 

\ifx\selectfont\undefined 

The rest of this section defines macros for use with the Plain font selection scheme; see 
the next section for definitions used with NFSS. 

What we want to provide with these macros is something a little bit more general than 
Plain TpX, without going the whole way to implementing a full, planned font scheme. 

The font setup defined in \notef ontsetup defines the fonts which will normally be used 
for the text of the footnotes. Parts of the footnote, such as the line number references and the 
lemma, are enclosed in groups, with their own font macros, so a note in plain roman can still 
have line numbers in bold, say, and the lemma in the same family of font as in the main text. 

Since it is common to have notes in a font smaller than the main text, we set up an 
\eightpoint macro which contains definitions for smaller versions of \rm, \it, \bf, \tt, 
and \sl. It also contains definitions of the appropriate \f am for each of these styles, as well 
as a smaller \strutbox and a setting of the \baselineskip. 

If you want to change the size or style of the standard footnote font, it is important that 
your macro define at least these items: 

• fonts 

• \fam(s) 

• \strutbox 

• Ybaselineskip 

For example, like Plain TgX itself, EDMAC uses the height of a \strutbox in a few crucial 
places, such as the crop marks, the alignment of the top line of footnotes, etc. (Page 71 
explains the reasons why this is important in one instance.) If you change the size of your 


\notefontsetup 
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\eightpoint 


\notenumfont 


\select@lemmafont 


fonts, but don’t change the size of the \strutbox too, then there will be various discrepancies 
in the spacing. The same holds for the \baselineskip, and the other macros mentioned here. 

The size of a \strutbox for the standard ten-point fonts is already set by Plain TpX, 
as are the other quantities. This takes care of the \headlinef ont, since this is initially set 
to ten-point \rm. But once again, if you change the font of the headline, be sure to add 
appropriate definitions of \baselineskip and \strutbox too. 

The first thing, then, is to load some font metric information for the small fonts that 
Plain TgX doesn’t load (cf. The TjXbook, pp. 413^-15). (We load eight-point fonts where 
we should load six-point ones, because the normal TpX distributions don’t have cmtt6 etc. If 
you have them, you may want to create your own \eightpoint with proper definitions.) 

\font\eightrm=cmr8 \font\eighti=cmmi8 \skewchar\eighti=’177 
\font\eightsy=cmsy8 \skewchar\eightsy=’60 \font\eightbf=cmbx8 
\font\eighttt=cmtt8 \hyphenchar\eighttt=-l '/, inhibit hyphenation 
\font\eightsl=cmsl8 \font\eightit=cmti8 

\font\sixrm=cmr8 \font\sixi=cmmi8 \skewchar\sixi=’177 
\font\sixsy=cmsy8 \skewchar\sixsy=’60 \font\sixbf=cmbx8 
\font\sixtt=cmtt8 \hyphenchar\sixtt=-l inhibit hyphenation 
\font\sixsl=cmsl8 \font\sixit=cmti8 

With that out of the way, we can now define an \eightpoint macro that is taken almost 
directly from p. 415 of The TpXbook (can you spot the differences?). 

\def \eightpoint{\def \rm{\f amO\eightrm}*/, 

\textfontO=\eightrm \scriptfontO=\sixrm 

\scriptscriptfontO=\fiverm 
\textfontl=\eighti \scriptfontl=\sixi 

\scriptscriptfontl=\fivei 
\textfont2=\eightsy \scriptfont2=\sixsy 

\scriptscriptfont2=\fivesy 
\textfont3=\tenex \scriptfont3=\tenex 

\scriptscriptfont3=\tenex 

\def\it{\fam\itfam\eightit}\textfont\itfam=\eightit 
\def\sl{\fam\slfam\eightsl}\textfont\slfam=\eightsl 
\def\bf{\fam\bffam\eightbf}\textfont\bffam=\eightbf 
\scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf 
\def\tt{\fam\ttfam\eighttt}\textfont\ttfam=\eighttt 
\normalbaselineskip=9pt 

\setbox\strutbox=\hbox{\vrule height7pt depth2pt widthOpt}'/, 
\normalbaselines\rm} 

And finally, we set \notef ontsetup to be the new font setup macro: 

\let\notefontsetup=\eightpoint 

With the above macros, remember to use \eightpoint (alias \notefontsetup) inside a 
group. If you want to use it outside a group, you will need to define a \tenpoint macro to 
set all these definitions back to the standard ten-point settings of Plain TgX. 

The macro controlling the font for line numbers within notes, \notenumf ont, is more 
simple. It really is just a font call. 

\let\notenumfont=\sevenrm 

XselectSlemmafont is provided to set the right font for the lemma in a note. This 
macro extracts the font-family number from the line and page number cluster, and issues the 
associated font-changing command, so that the lemma is printed in its original font. 

\def\select@lemmafont#l I #2 I #3 I #4 I #5 I #6 I #7 I {’/. 

\ifcase#7 

\rm \or \rm \or \rm \or \rm '/, families 0—3 

\or \it \or \sl \or \bf \or \tt '/, families 4—7 
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\else \rm 

\fi} 

Note that this is a departure from the normal behavior of Plain TgX regarding font selection. 
As Donald Knuth remarks (The TgXbook, p. 154), the \f am value is usually irrelevant when 
TpX is typesetting text in horizontal mode; \f am only matters in math mode. But here we are 
using the \f am value as a convenient way to select a font group. If you are editing a text in 
some other font, say Cyrillic, be sure to assign it a font \f am, and add that to the list here in 
\select@lemmafont (see the example given on p. 99 below for using a Sanskrit font with 
EDMAC). The ideal in this situation would be to be able to test for such parameters such as 
font series, style, and size. Exactly those capabilities are provided in the New Font Selection 
Scheme written by Frank Mittelbach and Rainer Schopf, and this is one place in EDMAC where 
such a system can be used to good effect (see the discussion above, page 18, and the following 
section). 


8.2 Fonts: using the New Font Selection Scheme 

These are the font macros used with NFSS. They will be activated if the NFSS macros have 
been loaded as described above (p. 19). 

\else 

The font setup defined in \notefontsetup defines the standard fonts for the text of 
the footnotes. Parts of the footnote, such as the line number references and the lemma, are 
enclosed in groups, with their own font macros, so a note in plain roman can still have line 
numbers in bold, say, and the lemma in the same font encoding, family, series, and shape of 
font as in the main text. Typically this definition should specify only a size. It should always 
end with \selectf ont or with a command like \rm that does a \selectf ont. 

\def\notefontsetup{\fontsize{8}{9pt}\selectfont} 

The line numbers will be printed using the font selected by executing \notenumf ont. 

\def\notenumfont{\fontsize{7}{8pt}\rm} 

\select@lemmaf ont is provided to set the right font for the lemma in a note. This macro 
extracts the font specifier from the line and page number cluster, and issues the associated 
font-changing command, so that the lemma is printed in its original font. 

\def\select@lemmafont#lI#2 I#3 I#4 I#5 I#6 I#7 I{\select@@lemmafont#7I} 

\def\select@@lemmafont#l/#2/#3/#4I / 

{\f ontencoding{#l}\f ont f amily{#2}\f ont series {#3}\f ont shape{#4}'/, 

\selectfont} 

This is the end of the conditional section for font macro definition. 

\fi 


8.3 Outer-level footnote commands 

The outer-level footnote commands will look familiar: they’re just called \Afootnote, 
\Bfootnote, etc., instead of plain \footnote. What they do, however, is quite different, 
since they have to operate in conjunction with \text when numbering is in effect. 

If we’re within a line-numbered paragraph, then, we tack this note onto the 
\inserts@list list, and increment the deferred-page-bottom-note counter. 

\def\Af ootnote#l{*/, 

\ifnumberedpar@ 

\xright@appenditem{\noexpand\vAf ootnotefA}*/, 

{{\@nums}{\@tag}{#l}}}\to\inserts@list 
\global\advance\insert@count by 1 


\notefontsetup 


\notenumfont 

\select@leiranaf ont 
\select@@lemmafont 


\Afootnote 
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\Bfootnote 
\Cfootnote 
\Dfootnote 
\Efootnote 


Within free text, there’s no need to put off making the insertion for this note. No line 
numbers are available, so this isn’t generally that useful; but you might want to use it to get 
around some limitation of EDMAC. 

\else 

\vAf ootnote{A}{{0 I 0 I 0 10 10 I 0 I 0}{}{#1}}'/, 

\fi\ignorespaces} 

We need similar commands for the other footnote series. 

\def \Bf ootnote#l {'/, 

\ifnumberedpar@ 

\xright@appenditem{\noexpand\vBf ootnotefB}'/, 

{{\@imms}{\@tag}{#l}}}\to\inserts<31ist 
\global\advance\insert@count by 1 
\else 

\vBf ootnote{B}{{0 I 0 I 0 10 10 I 0 I 0}{}{#1}}*/, 

\fi\ignorespaces} 

\def \Cf ootnote#l{*/, 

\ifnumberedpar@ 

\xright@appenditem{\noexpand\vCf ootnotefC}'/, 

{{\@nums}{\@tag}{#l}}}\to\inserts@list 
\global\advance\insert@count by 1 
\else 

\vCf ootnote{C}{{0 I 0 I 0 10 10 I 0 I 0}{}{#1}}'/, 

\fi\ignorespaces} 

\def \Df ootnote#l {'/, 

\ifnumberedpar@ 

\xright@appenditem{\noexpand\vDf ootnotefD}*/, 

{{\@nums}{\@tag}{#l}}}\to\inserts@list 
\global\advance\insert@count by 1 
\else 

\vDf ootnote{D}{{0 I 0 I 0 10 10 I 0 I 
\fi\ignorespaces} 

\def \Ef ootnote#l {'/, 

\ifnumberedpar@ 

\xright@appenditem{\noexpand\vEf ootnotefE}'/, 

{{\@nums}{\@tag}{#l}}}\to\inserts@list 
\global\advance\insert@count by 1 
\else 

\vEf ootnote{E}{{0 I 0 I 0 10 10 I 0 I 0}{}{#1}}'/, 

\fi\ignorespaces} 


8.4 Normal footnote formatting 

The processing of each note is done by four principal macros: the vf ootnote macro takes the 
text of the footnote and does the \insert; it calls on the f ootfmt macro to select the right 
fonts, print the line number and lemma, and do any other formatting needed for that individual 
note. Within the output routine, the two other macros, footstart and footgroup, are 
called; the first prints extra vertical space and a footnote rule, if desired; the second does any 
reformatting of the whole set of footnotes in this series for this page—such as paragraphing 
or division into columns—and then sends them to the page. 

These four macros, and the other macros and parameters shown here, are distinguished 
by the “series letter” that indicates which set of footnotes we’re dealing with—A, B, C, D, or 
E. The series letter always precedes the string foot in macro and parameter names. Hence, 


60 



8.4 Normal FOOTNOTE FORMATTING 


for the A series, the four macros are called \vAfootnote, \Afootfmt, \Afootstart, and 
\Afootgroup. 

We now begin a series of commands that do “normal” footnote formatting: a format much 
like that implemented in PLAIN TjgX, in which each footnote is a separate paragraph. 

\normalvf ootnote takes the series letter as #1, and the entire text of the footnote is #2. 
It does the \insert for this note, calling on the f ootfmt macro for this note series to format 
the text of the note. 

\def\normalvfootnote#l#2{\insert\csname #lfootins\endcsname\bgroup 
\notefontsetup 

\interlinepenalty\csname inter#lfootnotelinepenalty\endcsname 
\splittopskip\ht\strutbox 

\splitmaxdepth\dp\strutbox \floatingpenalty\@MM 
\leftskip\z@skip \rightskip\z@skip 
\spaceskip\z@skip \xspaceskip\z@skip 
\csname #lfootfmt\endcsname #2\egroup} 

\normalfootfmt is a “normal” macro to take the footnote line and page number infor¬ 
mation (see p. 32), and the desired text, and output what’s to be printed. Argument #1 contains 
the line and page number information and lemma font specifier; #2 is the lemma; #3 is the 
note’s text. This version is very rudimentary—it uses \print lines to print just the range of 
line numbers, followed by a square bracket, the lemma, and the note text; it’s intended to be 
copied and modified as necessary. 

\par should always be redefined to \endgraf within the format macro (this is what 
\normal@pars does), to override any tricky stuff which might be done in the main text to 
get the lines numbered automatically (as set up by \autopar, for example). 

\def\normalf ootfmt# 1#2#3{'/, 

\normal@pars 

\parindent=Opt \parfillskip=Opt plus lfil 
{\notenumfont\printlines#lI}\strut\enspace 

{\select@lemmafont#lI#2}\rbracket\enskip#3\strut\par} 

The fonts that are used for printing notes might not have the character mapping we expect: 
for example, the Computer Modern font that contains old-style numerals does not contain an 
en-dash or square brackets, and its period and comma are in odd locations. To allow use of the 
standard footnote macros with such fonts, we use the following macros for certain characters. 

The \endashchar macro is simply an en-dash from a \rm font that is immune to changes 
in the surrounding font. The same goes for the full stop. These two are used in \printlines. 
The right bracket macro is the same again; it crops up in \normalfootfmt and the other 
footnote macros for controlling the format of footnotes. 

\def\endashchar{{\rm—}} 

\def\fullstop{{\rm.}} 

\def\rbracket{{\rm\thinspace] }} 

The \printlines macro prints the line numbers for a note—which, in the general case, 
is a rather complicated task. The seven parameters of the argument are the line numbers as 
stored in \toums, in the form described on page 32: the starting page, line, and sub-line 
numbers, followed by the ending page, line, and sub-line numbers, and then the font specifier 
for the lemma. 

To simplify the logic, we use a lot of counters to tell us which numbers need to get printed 
(using 1 for yes, 0 for no, so that \if odd tests for “yes”). The counter assignments are: 

• \@pmim for page numbers; 

• \@ssub for starting sub-line; 

• \@elin for ending line; 


\normalvfootnote 


\normalfootfmt 


\endashchar 

\fullstop 

\rbracket 


\printlines 


\@pnum 

\@ssub 

\<§elin 

\@esl 

\<§dash 
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• \@esl for ending sub-line; and 

• \@dash for the dash between the starting and ending groups. 


There’s no counter for the line number because it’s always printed. 

\newcount\@pnum \newcount\@ssub \newcount\@elin 
\newcount\@esl \newcount\@dash 

First of all, we print the page numbers only if: 1) we’re doing the lineation by page, and 
2) the ending page number is different from the starting page number. 

\def\printlines#lI#2 I#3 I#41#5 I#6 I#7 I{\begingroup 
\@pnum=0 \@dash=0 
\ifbypage<§ 

\ifnum#4=#l \else 
\@pnum=l 
\@dash=l 
\fi 
\fi 

We print the ending line number if: 1) we’re printing the ending page number, or 2) it’s 
different from the starting line number. 

\@elin=\@pnum 
\ifnum#2=#5 \else 
\@elin=l 
\<§dash=l 
\fi 

We print the starting sub-line if it’s nonzero. 

\@ssub=0 

\ifnum#3=0 \else 
\@ssub=l 
\fi 

We print the ending sub-line if it’s nonzero and: 1) it’s different from the starting sub-line 
number, or 2) the ending line number is being printed. 

\@esl=0 

\ifnum#6=0 \else 
\ifnum#6=#3 

\<3esl=\@elin 

\else 

\@esl=l 

\@dash=l 

\fi 

\fi 


Now we’re ready to print it all, based on our counter values. The only subtlety left here is 
when to print a period between numbers. But the only instance in which this is tricky is for 
the ending sub-line number: it could be coming after the starting sub-line number fin which 
case we want only the dash) or after an ending line number (in which case we need to insert a 
period). 


\ifodd\@pnum #l\fullstop\fi 

# 2 ’/. 

\ifodd\@ssub \fullstop #3\fi 
\ifodd\@dash \endashchar\fi 
\ifodd\@pnum #4\fullstop\fi 
\ifodd\@elin #5\fi 

\ifodd\@esl \ifodd\@elin\fullstop\fi #6\fi 
\endgroup} 
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\normalfootstart is a standard footnote-starting macro, called in the output routine 
whenever there are footnotes of this series to be printed: it skips a bit and then draws a rule. 

Any foot start macro must put onto the page something that takes up space exactly equal 
to the \skip\f ootins value for the associated series of notes. TpX makes page computations 
based on that \skip value, and the output pages will suffer from spacing problems if what 
you add takes up a different amount of space. 

The \leftskip and \rightskip values are both zeroed here. Similarly, these skips 
are cancelled in the vfootnote macros for the various types of notes. Strictly speaking, 
this is necessary only if you are using paragraphed footnotes, but we have put it here and 
in the other vfootnote macros too so that the behavior of EDMAC in this respect is general 
across all footnote types (you can change this). What this means is that any \leftskip 
and \rightskip you specify applies to the main text, but not the footnotes. The footnotes 
continue to be of width \hsize. 

\def \normalf ootstart# 1{'/, 

\vskip\skip\csname #lfootins\endcsname 
MeftskipOpt \rightskipOpt 
\csname #lfootnoterule\endcsname} 

\normalf ootnoterule is a standard footnote-rule macro, for use by a footstart 
macro: just the same as the Plain TpX footnote rule. 

\let\normalfootnoterule=\footnoterule 

\normalf ootgroup is a standard footnote-grouping macro: it sends the contents of the 
footnote-insert box to the output page without alteration. 

\def\normalfootgroup#l{\unvbox\csname #Ifootins\endcsname} 


8.5 Standard footnote definitions 

We can now define all the parameters for the five series of footnotes; initially they use the 
“normal” footnote formatting, which is set up by calling \f ootnormal. You can switch to 
another type of formatting by using \f ootparagraph, \f oottwocol, or \f ootthreecol. 

Switching to a variation of “normal” formatting requires changing the quantities defined 
in \f ootnormal. The best way to proceed would be to make a copy of this macro, with a 
different name, make your desired changes in that copy, and then invoke it, giving it the letter 
of the footnote series you wish to control. 

(We have not defined baseline skip values like \abaselineskip, since this is one of the 
quantities set in \notef ontsetup.) 

What we want to do here is to say something like the following for each footnote series. 
(This is an example, not part of the actual EDMAC code.) 

\newinsert\Afootins 

\newcount\interAfootnotelinepenalty \interAfootnotelinepenalty=100 
\skip\Afootins=12pt plus5pt minus5pt 
\count\Afootins=1000 
\dimen\Afootins=0.8\vsize 

\let\vAfootnote=\normalvfootnote \let\Afootfmt=\normalfootfmt 
\let\Afootstart=\normalfootstart \let\Afootgroup=\normalfootgroup 
\let\Afootnoterule=\normalfootnoterule 


Instead of repeating ourselves, we define a \f ootnormal macro that makes all these assign¬ 
ments for us, for any given series letter. This also makes it easy to change from any different 
system of formatting back to the normal setting. 

We begin by defining the five new insertion classes, and some count registers; these are 
\outer operations that can’t be done inside \f ootnormal. 


\normalfootstart 


\normalf ootnoterule 


\normalf ootgroup 


\footnormal 
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\f ootparagraph 


\newinsert\Afootins \newinsert\Bfootins 
\newinsert\Cfootins \newinsert\Dfootins 
\newinsert\Efootins 

\newcount\interAfootnotelinepenalty 
\newcount\interBfootnotelinepenalty 
\newcount\interCfootnotelinepenalty 
\newcount\interDfootnotelinepenalty 
\newcount\interEfootnotelinepenalty 

Now we set up the \f ootnormal macro itself. It takes one argument: the footnote series 
letter. 

\def \f ootnormal# 1{'/, 

\csname inter#Ifootnotelinepenalty\endcsname=100 
\expandafter\let\csname #Ifootstart\endcsname=\normalfootstart 
\expandafter\let\csname v#lfootnote\endcsname=\normalvfootnote 
\expandafter\let\csname #lfootfmt\endcsname=\normalfootfmt 
\expandafter\let\csname #lfootgroup\endcsname=\normalfootgroup 
\expandafter\let\csname #lfootnoterule\endcsname='/, 

\normalf ootnoterule 

\count\csname #lfootins\endcsname=1000 
\dimen\csname #lfootins\endcsname=0.8\vsize 
\skip\csname #lfootins\endcsname=12pt plus6pt minus6pt} 

Some of these values deserve comment: the \dimen setting allows 80% of the page to be 
occupied by notes; the \skip setting is deliberately flexible, since pages with lots of notes 
attached to many of the lines can be a bit hard for TpX to make. 

And finally, we initialize the formatting for all the footnote series to be normal. 

\footnormal!A} 

\footnormalfB} 

\footnormalfC} 

\footnormalfD} 

\footnormalfE} 


8.6 Paragraphed footnotes 

The paragraphed-footnote option reformats all the footnotes of one series for a page into 
a single paragraph; this is especially appropriate when the notes are numerous and brief. 
The code is based on The TfXbook, pp. 398-400, with alterations for our environment. This 
algorithm uses a considerable amount of save-stack space: a TpX of ordinary size may not be 
able to handle more than about 100 notes of this kind on a page. 

The \f ootparagraph macro sets up everything for one series of footnotes so that 
they’ll be paragraphed; it takes the series letter as argument. We include the setting of 
\count\f ootins to 1000 for the footnote series just in case you are switching to paragraphed 
footnotes after having columnar ones, since they change this value (see below). 

It is important to call \f ootparagraph only after \hsize has been set for the pages that 
use this series of notes; otherwise TpX will try to put too many or too few of these notes on 
each page. If you need to change the \hsize within the document, call \f ootparagraph 
again afterwards to take account of the new value. The argument of \f ootparagraph is the 
letter (A-E) denoting the series of notes to be paragraphed. 

\def \f ootparagraph#l{'/, 

\expandafter\let\csname #lfootstart\endcsname=\parafootstart 
\expandafter\let\csname v#lfootnote\endcsname=\para@vfootnote 
\expandafter\let\csname #lfootfmt\endcsname=\parafootfmt 
\expandafter\let\csname #lfootgroup\endcsname=\para@footgroup 
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\count\csname #lfootins\endcsname=1000 
\para@footsetup{#l}} 

\f ootparagraph calls the \para@footsetup macro to calculate a special fudge factor, 
which is the ratio of the \baselineskip to the \hsize. We assume that the proper value of 
\baselineskip for the footnotes (normally 9pt) has been set already, in \notef ontsetup. 
The argument of the macro is again the note series letter. 

\def\para@footsetup#l{{\notefontsetup 
\dimenO=\baselineskip 
\multiply\dimenO by 1024 

\divide \dimen0 by \hsize \multiply\dimenO by 64 
\expandaf ter 

\xdef\csname #lfootfudgefactor\endcsname{'/, 

\expandafter\en@number\the\dimenO }}} 

The \en@number macro extracts the numerical part from a dimen register and strips off 
the “pt” (see The TjXbook, p. 375). It turns lOpt into 10 so that you can use it in arithmetic. 

{\catcode‘p=12 \catcode‘t=12 \gdef\en@number#lpt{#l}} 

\paraf ootstart is the same as \normalf ootstart, but we give it again to ensure that 
\rightskip and \leftskip are zeroed (this needs to be done before \para@f ootgroup in 
the output routine). You might have decided to change this for other kinds of note, but here it 
should stay as it is. The size of paragraphed notes is calculated using a fudge factor which in 
turn is based on \hsize. So the paragraph of notes needs to be that wide. 

The argument of the macro is again the note series letter. 

\def \par afoot start# 1{’/, 

\rightskip=0pt \leftskip=0pt \parindent=0pt 
\vskip\skip\csname #lfootins\endcsname 
\csname #lfootnoterule\endcsname} 

\para@vfootnote is a version of the \vf ootnote command that’s used for paragraphed 
notes. It gets appended to the \inserts@list list by an outer-level footnote command like 
\Af ootnote. The first argument is the note series letter; the second is the full text of the 
printed note itself, including line numbers, lemmata, and footnote text. 

The initial model for this insertion is, of course, the \insert\f ootins definition in The 
TpXbook, p. 398. There, the footnotes are first collected up in hboxes, and these hboxes are 
later unpacked and stuck together into a paragraph. 

However, Michael Downes has pointed out that because text in hboxes gets typeset in 
restricted horizontal mode, there are some undesirable side-effects if you later want to break 
such text across lines. In restricted horizontal mode, where TpX does not expect to have to 
break lines, it does not insert certain items like \discretionarys. If you later unbox these 
hboxes and stick them together, as the TjXbook macros do to make these footnotes, you lose 
the ability to hyphenate after an explicit hyphen. This can lead to overfull \hboxes when you 
would not expect to find them, and to the uninitiated it might be very hard to see why the 
problem had arisen. 33 

Wayne Sullivan pointed out to us another subtle problem that arises from the same cause; 
TpX also leaves the \language whatsit nodes out of the horizontal list. 34 So changes from 
one language to another will not invoke the proper hyphenation rules in such footnotes. Since 
critical editions often do deal with several languages, especially in footnotes, we really ought 
to get this bit of code right. 

To get around these problems, Wayne suggested emendations to the TjXbook versions of 
these macros which are broadly the same as those described by Michael: the central idea (also 
suggested by Donald Knuth in a letter to Michael) is to avoid collecting the text in an \hbox 

33 Michael Downes, “Line Breaking in \unhboxed Text", TUGboat 11 (1990), pp. 605-612. 

34 See The Tj;Xbook, p. 455 (editions after January 1990). 


\para@footsetup 


\en@number 


\parafootstart 


\para@vfootnote 
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in the first place, but instead to collect it in a \vbox whose width is (virtually) infinite. The 
text is therefore typeset in unrestricted horizontal mode, as a paragraph consisting of a single 
long line. Later, there is an extra level of unboxing to be done: we have to unpack the \vbox, 
as well as the hboxes inside it, but that’s not too hard. For details, we refer you to Michael’s 
article, where the issues are clearly explained. 35 Michael’s unboxing macro is called \unvxh: 
unvbox, extract the last line, and unhbox it. 

Doing things this way has an important consequence: as Michael pointed out, you really 
can’t put an explicit line-break into a note built in a \vbox the way we are doing. 36 In other 
words, be very careful not to say \break, or \penalty-10000, or any equivalent inside 
your para-footnote. If you do, most of the note will probably disappear. You are allowed 
to make strong suggestions; in fact \penalty-9999 will be quite okay. Just don’t make the 
break mandatory. We haven’t applied any of Michael’s solutions here, since we feel that the 
problem is exiguous, and EDMAC is quite baroque enough already. If you think you are having 
this problem, look up Michael’s solutions. 

One more thing; we set \leftskip and \rightskip to zero. This has the effect of 
neutralizing any such skips which may apply to the main text (cf. p. 63 above). We need to 
do this, since footfudgef actor is calculated on the assumption that the notes are \hsize 
wide. 

So, finally, here is the modified foot-paragraph code, which sets the footnote in vertical 
mode so that language and discretionary nodes are included. 

\def\para@vfootnote#l#2{\insert\csname #lfootins\endcsname 
\bgroup 

\notefontsetup 

\interlinepenalty=\csname inter#lfootnotelinepenalty\endcsname 
\splittopskip=\ht\strutbox 

\splitmaxdepth=\dp\strutbox \floatingpenalty=\@MM 
MeftskipOpt \rightskipOpt 
\setboxO=\vbox{\hsize=\maxdimen 

\noindent\csname #lfootfmt\endcsname#2}'/, 

\setboxO=\hbox{\unvxhO}'/, 

\dp0=0pt 

\htO=\csname #lfootfudgefactor\endcsname\wdO 

Here we produce the contents of the footnote from box 0, and add a penalty of 0 between 
boxes in this insert. 

\boxO 

\penaltyO 

\egroup} 

The final penalty of 0 was added here at Wayne’s suggestion to avoid a weird page-breaking 
problem, which occurs on those occasions when TpX attempts to split foot paragraphs. After 
trying out such a split (see The TgXbook, p. 124), TpX inserts a penalty of —10000 here, 
which nearly always forces the break at the end of the whole footnote paragraph (since 
individual notes can’t be split) even when this leads to an overfull vbox. The change above 
results in a penalty of 0 instead which allows, but doesn’t force, such breaks. This penalty 
of 0 is later removed, after page breaks have been decided, by the \unpenalty macro in 
\makehboxofhboxes. So it does not affect how the footnote paragraphs are typeset (the 
notes still have a penalty of —10 between them, which is added by \paraf ootfmt). 

\unvxh Here is Michael’s definition of \unvxh, used above. Michael’s macro also takes care 
to remove some unwanted penalties and glue that TpX automatically attaches to the end of 
paragraphs. When TgX finishes a paragraph, it throws away any remaining glue, and then 

,5 Wayne supplied his own macros to do this, but since they were almost identical to Michael’s, we have used the 
latter’s \unvxh macro since it is publicly documented. 

,6 “Line Breaking’’, p. 610. 
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tacks on the following items: a \penalty of 10000, a \parfillskip and a \rightskip 
(The TjXbook, pp. 99-100). \unvxh cancels these unwanted paragraph-final items using 
\unskip and \unpenalty. 

\ de f \un vxh# 1 {'/, 

\setboxO=\vbox{\unvbox#l'/, 

\global\setboxl=\lastbox}'/, 

\unhboxl 

\unskip */, remove \rightskip, 

\unskip '/, remove \parfillskip, 

\unpenalty '/, remove \penalty of 10000, 

\hskip\ipn@skip} '/, but add the glue to go between the notes 

Close observers will notice that we snuck some glue called \ipn@skip onto the end of \interparanoteglue 
the hbox produced by \unvxh in the above macro. \ipn@skip 

We want to be able to have some glue between our paragraphed footnotes. But since we 
are initially setting our notes in internal vertical mode, as little paragraphs, any paragraph- 
final glue will get discarded. Since \unvxh is already busy fiddling with glue and penalties 
at the end of these paragraphs, we take advantage of the opportunity to provide our inter-note 
spacing. 

We collect the value of the inter-parafootnote glue value as the parameter of a macro 
called—wait for it—\interparanoteglue. We put this value into the value of a glue 
register \ipn@skip (inter-para-note-skip) making sure first to set the current font to the value 
normally used in footnotes so that the value of an em will be taken from the right font. 

\newskip\ipn@skip 

\def \interparanoteglue#l{'/, 

{\notefontsetup\global\ipn@skip=#l \relax}} 

\interparanoteglue{lem plus.4em minus.4em} 

There is a point to be careful about regarding the \interparanoteglue. Remember that in 
\para@vfootnote we do some measurements on the footnote box, and use the resulting size 
to make an estimate of how much the note will contribute to the height of our final footnote 
paragraph. This information is used by the output routine to allocate the right amount of 
vertical space on the page for the notes (The TfXbook, pp. 398-399). 

The length of the footnote includes the natural size of the glue \interparanoteglue, 
but not its stretch or shrink components, since at this point the note has no need to stretch or 
shrink. Later, when the paragraph is actually composed by \paraf ootgroup in the output 
routine, TpX will almost certainly do some stretching and shrinking of this glue in order to 
make the paragraph look nice. Probably the stretching and shrinking over the whole paragraph 
will cancel each other out. But if not, the actual vertical size of the paragraph may not match 
the size the output routine had been told to expect, and you may get an overfull/underfull 
\vbox message from the output routine. To minimize the risk of this, you can do two things: 
keep the plus and minus components of \interparanoteglue small compared with its 
natural glue, and keep them the same as each other. As a general precaution, keep the size 
and flexibility of the \skip\f ootins glue on the high side too: because the reckoning is 
approximate, footnote blocks may be up to a line bigger or smaller than the output routine 
allows for, so keep some flexible space between the text and the notes. 

\parafootfmt is \normalfootfmt adapted to do the special stuff needed for para- \parafootfmt 

graphed notes—leaving out the \endgraf at the end, sticking in special penalties and kern, 
and leaving out the \f ootstrut. The first argument is the line and page number information, 
the second is the lemma, and the third is the text of the footnote. 

\def \paraf ootfmt #1#2#3{'/, 

\normal@pars 

\parindent=0pt \parfillskip=0pt pluslfil 
{\notenumfont\printlines#lI}\enspace 
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{\select@lemmafont#lI#2}\rbracket\enskip 
#3\penalty-10 } 

Note that in the above definition, the penalty of —10 encourages a line break between notes, 
so that notes have a slight tendency to begin on new lines. 

\para@footgroup This footgroup code is modelled on the macros in The T^Xbook, p.399. The only 

difference is the \unpenalty in \makehboxofhboxes, which is there to remove the penalty 
of 0 which was added to the end of each footnote by \para@vf ootnote. 

The call to \notefontsetup is to ensure that the correct \baselineskip for the 
footnotes is used. The argument is the note series letter. 

\def \para@f ootgroup# 1 {'/, 

\unvbox\csname #lfootins\endcsname \makehboxofhboxes 
\setboxO=\hbox{\unhboxO Xremovehboxes}*/, 

Xnotefontsetup 
\noindent\unhboxO\par} 

\def \makehboxofhboxes{\setboxO=\hbox{}*/, 

\loop 

Xunpenalty 

\setbox2=\lastbox 

\ifhbox2 

Xsetbox0=\hbox{\box2\unhbox0} 

Xrepeat} 

\defXremovehboxes{\setboxO=\lastbox 
\ifhboxO{\removehboxes}\unhboxO \fi} 


8.7 Columnar footnotes 


Xrigidbalance 

Xdosplits 

Xsplitoff 

\@h 

\@k 


We will now define macros for three-column notes and two-column notes. Both sets of macros 
will use Xrigidbalance, which splits a box (#1) into into a number (#2) of columns, each 
with a space (#3) between the top baseline and the top of the \vbox. The Xrigidbalance 
macro is taken from The TjXbook, p. 397, with a slight change to the syntax of the arguments 
so that they don’t depend on white space. Note also the extra unboxing in Xsplitoff, which 
allows the new \vbox to have its natural height as it goes into the alignment. 


\newcount\@k \newdimen\@h 

\def\rigidbalance#l#2#3{\setbox0=\box#l \@k=#2 \@h=#3 
\line{\splittopskip=\@h \vbadness=\@M Xhfilneg 
\valign{##\vfil\crXdosplits}}} 

\def\dosplits{\ifnum\@k>0 \noalign{\hfil}\splitoff 
\global\advance\@k-l\cr\dosplits\fi} 

\defXsplitoff{\dimenO=\htO 

\divide\dimenO by\@k \advance\dimenO by\@h 
\setbox2 XvsplitO to \dimenO 
\unvbox2 } 


\footthreecol Three columns You say \f ootthreecol{A} to have the A series of footnotes typeset in 
three columns. It is important to call this only after Xhsize has been set for the document. 

\def \f ootthreecol#l{*/, 

Xexpandafter\let\csname v#lfootnote\endcsname=\threecolvfootnote 
Xexpandafter\let\csname #lfootfmt\endcsname=\threecolfootfmt 
Xexpandafter\let\csname #lfootgroup\endcsname=\threecolfootgroup 
Xthreecolfootsetup!#1}} 

The \f oot st art and \f ootnoterule macros for these notes assume the normal values 
(p. 63 above). 
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threecolfootsetup The \threecolfootsetup macro calculates and sets some numbers for three-column 

footnotes. 

We set the \count of the foot insert to 333. Each footnote can be thought of as 
contributing only one third of its height to the page, since the footnote insertion has been 
made as a long narrow column, which then gets trisected by the \rigidbalance routine 
(inside \threecolfootgroup). These new, shorter columns are saved in a box, and then that 
box is put back into the footnote insert, replacing the original collection of footnotes. This 
new box is, therefore, only about a third of the height of the original one. 

The \dimen value for this note series has to change in the inverse way: it needs to be 
three times the actual limit on the amount of space these notes are allowed to fill on the page, 
because when TgX is accumulating material for the page and checking that limit, it doesn’t 
apply the \count scaling. 

\def \threecolf ootsetup#l{’/, 

\count\csname #lfootins\endcsname 333 
\multiply\dimen\csname #lfootins\endcsname by 3 } 

\threecolvf ootnote is the \vf ootnote command for three-column notes. The call to 
\notef ontsetup ensures that the \splittopskip and \splitmaxdepth take their values 
from the right \strutbox: the one used in footnotes. Note especially the importance of 
temporarily reducing the \hsize to 0.3 of its normal value. This determines the widths of 
the individual columns. So if the normal \hsize is, say, 10 cm, then each column will be 
0.3 x 10 = 3 cm wide, leaving a gap of 1 cm spread equally between columns (i.e., .5 cm 
between each). 

The arguments are 1) the note series letter and 2) the full text of the note (including 
numbers, lemma and text). 

\def \threecolvf ootnote#l#2{‘/, 

\insert\csname #lfootins\endcsname\bgroup 
\notefontsetup 

\interlinepenalty=\csname inter#Ifootnotelinepenalty\endcsname 
\floatingpenalty=20000 

\splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox 

\rightskip=Opt \leftskip=0pt 

\csname #lfootfmt\endcsname #2\egroup} 

\threecolfootfmt is the command that formats one note. It uses \raggedright, 
which will usually be preferable with such short lines. Setting the \parindent to zero means 
that, within each individual note, the lines begin flush left. 

The arguments are 1) the line numbers, 2) the lemma and 3) the text of the -footnote 
command. 

\def \threecolf ootfmt#l#2#3{'/, 

\normal@pars 
\hsize .3\hsize 
\parindent=Opt 
\tolerance=5000 
\raggedright 
\leavevmode 

\strut{\notenumfont\printlines#lI}\enspace 
{\select@lemmafont#lI#2}\rbracket\enskip 
#3\strut\par\allowbreak} 

And here is the f ootgroup macro that’s called within the output routine to regroup the 
notes into three columns. Once again, the call to \notefontsetup is there to ensure that 
it is the right \splittopskip—the one used in footnotes—which is used to provide the 
third argument for \rigidbalance. This third argument (\@h) is the topskip for the box 
containing the text of the footnotes, and does the job of making sure the top lines of the 


\threecolvfootnote 


\threecolfootfmt 


\threecolfootgroup 
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columns line up horizontally. In The TjdCbook, p. 398, Donald Knuth suggests retrieving the 
ouput of \rigidbalance, putting it back into the insertion box, and then printing the box. 
Here, we just print the \line which comes out of \rigidbalance directly, without any 
re-boxing. 

\def\threecolfootgroup#l{{\notefontsetup 
\splittopskip=\ht\strutbox 
\expandafter 

\rigidbalance\csname #lfootins\endcsname 3 \splittopskip }} 

\foottwocol Two columns You say \foottwocol{A> to have the A series of footnotes typeset in two 
columns. It is important to call this only after \hsize has been set for the document. 

\def \f oottwocol#l{'/, 

\expandafter\let\csname v#lfootnote\endcsname=\twocolvfootnote 
\expandafter\let\csname #lfootfmt\endcsname=\twocolfootfmt 
\expandafter\let\csname #lfootgroup\endcsname=\twocolfootgroup 
\twocolfootsetup{#l}} 

\twocolfootsetup Here is a series of macros which are very similar to their three-column counterparts. In 
\twocolvf ootnote this case, each note is assumed to contribute only a half a line of text. And the notes are set in 
\twocolf ootfmt columns 0.45\hsize wide, giving a gap between them of one tenth of the \hsize. 

\twocolfootgroup \def \twocolf ootsetup#l{'/, 

\count\csname #lfootins\endcsname 500 
\multiply\dimen\csname #lfootins\endcsname by 2 } 

\def\twocolvfootnote#l#2{\insert\csname #lfootins\endcsname\bgroup 
\notefontsetup 

\interlinepenalty=\csname inter#Ifootnotelinepenalty\endcsname 
\floatingpenalty=20000 

\splittopskip=\ht\strutbox \splitmaxdepth=\dp\strutbox 

\rightskip=0pt \leftskip=0pt 

\csname #lfootfmt\endcsname #2\egroup} 

\def \twocolf ootfmt#l#2#3{'/, 

\normalSpars 
\hsize ,45\hsize 
\parindent=0pt 
\tolerance=5000 
\raggedright 
\leavevmode 

\strut{\notenumfont\printlines#lI}\enspace 
{\select@lemmafont#lI#2}\rbracket\enskip 
#3\strut\par\allowbreak} 

\def\twocolfootgroup#l{{\notefontsetup 
\splittopskip=\ht\strutbox 
\expandafter 

\rigidbalance\csname #lfootins\endcsname 2 \splittopskip}} 
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9 Output routine 

Now we begin the output routine and associated things. 


9.1 Crop marks 

The following are the parameters that specify the page dimensions that relate to crop marks; 
they are set by the \cropsetup macro. 

\crop@vsize is the vertical distance between crop marks. 

\newdimen\crop@vsize \crop@vsize=Opt 

\crop@hsize is the horizontal distance between crop marks. 

\newdimen\crop@hsize \crop@hsize=Opt 

\head@margin is the head margin. 

\newdimen\head@margin \head@margin=Opt 

\back@margin is the back margin. 

\newdimen\back@margin \back@margin=Opt 

To handle the odd/even difference in the back margin, we keep the different margin sizes 
in two registers, \odd@back and \even@back, and use a token register, \@back, to hold the 
code that decides which to use. 

\newdimen\odd@back \odd@back=Opt 
\newdimen\even@back \even@back=Opt 
\newtoks\@back 

\<§back={\ifodd\pageno \odd@back \else \even@back\fi} 

We store up the registration marks in a box called \registration@marks that’s reused 
for every page, instead of regenerating them all again at each page. 
\newbox\registration@marks 

The following are macros that will be used in the course of making 
\registration@marks. 

\def\vertical@rules{'/, 

\hbox to\crop@hsize{'/, 

\vrule heightlpc width\cropwidth depthOpt 
\hfil 

\vrule width\cropwidth depthOpt}} 

\def \horizontal@rules{*/, 

\hbox to\crop@hsize{'/, 

\llap{\vrule widthlpc height\cropwidth \kern\cropgap}'/, 

\hfil 

\rlap{\kern\cropgap \vrule widthlpc height\cropwidth}}} 

Set standard values for the thickness of the rules used for drawing crop marks 
(\cropwidth) and the gap by which crop marks don’t cross (\cropgap). 
\newdimen\cropwidth \cropwidth=.4pt 
\newdimen\cropgap \cropgap=5pt 

Publishers usually measure the head margin for the crop marks from the top of the running 
head. 37 

Plain TgX’s starting reference point for a page is not the running head, but a point 
\topskip above the baseline of the first line of main text on the page. (Before doing anything 
else, TpX adds a small amount of skip to the top of a new page, which is calculated to bring 

v Cf. Hugh Williamson, Methods of Book Design (New Haven: Yale University Press, 1983), p. 21. 
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the baseline of the top line of text down to \topskip from the top of the page, i.e., from the 
point where the \vsize is measured from: The T^Xhook, pp. 113-114.) So any vertical matter 
we add in the output routine to the start of a page will sit with its base at a point \topskip 
above the baseline of the first line of the main text. And if \ht\strutbox is the height of the 
header box we are adding, then the distance between its top and the reference point will be 
\topskip—\ht\strutbox—s, where s is the space we want to put between the baselines of 
the header and the first text line. 

In PLAINT^X, this distance is —22.opt, a “magic constant” explained in The TjXbook, 
p. 255. Rather than using this figure explicitly, EDMAC calculates it afresh, in case you 
have changed any of the values that go to make up this magic constant. The parameters 
involved are the \topskip, the font of the \headline text (which determines the height of 
the \strutbox), and the Ybaselineskip (assuming that you want the header to be exactly 
two lines above the first line of the text). This calculation is done within \cropsetup. 
\newdimen\magicvskip \magicvskip=\topskip 

If the \headline is going to be set at a different height from the top of the text, or in 
a different size of font, be sure to make the appropriate changes to the above parameters, 
or the crop marks will not be in the right position. We now set the standard value for 
\headlinef ont. 

\let\headlinefont=\rm 

\cropsetup Here at last is the \cropsetup macro that takes the page and margin dimensions you 
\if cropmarksO specify and calculates all the other parameters from them. It should always be used after 
\hsize, \makeheadline, and \headl inef ont for the document have been set, as explained 
above. These macros use the same approach as those published by David Salomon in 
TUGboat 11 (1990), pp. 77-78. Cf. also the \setcornerrules code in The T^Xbook, 
pp. 416-417. 

The four arguments are as described above, on page 20. 

First, set up a conditional, \if cropmarks®, for use in the output routine. Initially, it’s 
false. (It is set to true when you use the \cropsetup macro.) 

\newif\if cropmarks® 

Now the main macro to set up crop marks: 

\def\cropsetup#l#2#3#4{\cropmarks@true 
\global\crop@vsize=#l 
\global\crop@hsize=#2 
\global\head@margin=#3 
\global\back@margin=#4 

The back margin for odd pages is easy. For even pages, we take the full width and subtract 
the text width and back margin size. 

\global\odd@back=\back@margin 
\global\even@back=\crop@hsize 
\global\advance\even@back by -\hsize 
\global\advance\even<3back by -\back@margin 

\setbox\registration@marks= 

\vbox to \crop@vsize{'/, 

\offinterlineskip 
\vbox to0pt{\vss 
\vertical@rules 
\kern\cropgap 
\horizontal@rules}'/, 

\vfil 

\vbox toOptf'/, 

\hor izont al <§ rules 


72 



9.2 Output routine 


\kern\cropgap 

\vertical@rules\vss}}'/, 

Set the box’s size to zero. 

\ht\registration@marks=Opt 

\wd\registration@marks=Opt 

In the next lines, we set the font to \headlinef ont so that the height of the \strutbox 
will be the that of the \headlinef ont font. This makes the assumption that font used for 
the \headline is invoked by \headlinef ont, and that the \headlinef ont macro defines 
a \strutbox of an appropriate size for the font. (The standard setting is to Plain TpX’s \rm, 
and the height of a \strutbox for this font is already set by Plain TgX.) 
\global\magicvskip=\topskip 

{\headlinefont \global\advance\magicvskip by -\ht\strutbox}*/, 
\global\advance\magicvskip by -2\baselineskip} 


9.2 Output routine 

This is a new output routine, with changes to handle printing all our footnotes. Those changes 
have not been added directly, but are in macros that get called here: that should make it 
easier to see what would need to be taken over to a different output routine. We continue 
to use the \pagebody, \makeheadline, \makef ootline, and \dosupereject macros of 
Plain TpX; for those macros, and the original version of \output, see The TjXbook, p. 364. 

\output{\edmac@output} 

\def\edmac@output{\shipout\vbox{\normal@pars 
\ifcropmarks® 

\do@cropmarks 

\else 

\vbox{\makeheadline\pagebody\makef ootline}'/, 

\advancepageno 

\ifnum\outputpenalty>-\<3MM\else\dosupere ject\f i} 

\def\pagecontents{\page@start 

\ifvoid\topins\else\unvbox\topins\fi 
\dimen@=\dp\@cclv \unvbox\@cclv */, open up \box255 
\do@feet 

\ifr@ggedbottom \kern-\dimen<§ \vfil \fi} 

When crop marks are to be printed, \edmac@output uses this macro to print them, along 
with the text of the page. 

\def \do@cropmarks{*/, 

\vbox{\offinterlineskip 
\kern\magicvskip 
\copy\registration@marks 
\kern-\magicvskip}'/, 

\nointerlineskip 

\kern\head@margin 

\moveright\the\@back\vbox{\makeheadline\pagebody\makefootline}} 

\do@feet ships out all the footnotes. Standard EDMAC has only five feet, but there 
is nothing in principal to prevent you from creating an arachnoid or centipedal edition; 
straightforward modifications of EDMAC are all that’s required. However, the myriapedal 
edition is ruled out by TpX’s limitations: the number of insertion classes is limited to 255. 

\def \do@f eet{'/, 

\ifvoid\footins\else 


\output 

\edmac@output 

\pagecontents 


\do@cropmarks 


\do@feet 
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9 Output routine 


\vskip\skip\footins 
\footnoterule 
\unvbox\footins 
\f i 

\ifvoid\AfootinsXelse 

\Af ootstart{A}\Af ootgroup{A}'/, 
\f i 

\ifvoid\Bfootins\else 

\Bf ootstart{B}\Bf ootgroup{B}'/, 
\f i 

\ifvoid\Cfootins\else 

\Cf ootstart{C}\Cf ootgroup{C}'/, 
\f i 

\ifvoid\Dfootins\else 

\Df ootstart{D}\Df ootgroup{D}'/, 
\f i 

\ifvoid\EfootinsXelse 

\Efoot start {E}\Efootgroup{E}'/, 

Xfi} 
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10 Cross referencing 


You can mark a place in the text using a command of the form \label{f oo}, and 
later refer to it using the label foo by saying \pageref{foo}, or \lineref{foo> or 
\sublineref {f oo}. These reference commands will produce, respectively, the page, line 
and sub-line on which the \label{f 00} command occurred. 

The reference macros warn you if a reference is made to an undefined label. If foo has 
been used as a label before, the \label{f 00} command will issue a complaint; subsequent 
\pageref and \lineref commands will refer to the latest occurrence of \label{f00}. 
When any of these commands are used, an additional auxiliary file, called ( filename ). aux, is 
created. 

Set up a new list, \labelref©list, to hold the page, line and sub-line numbers for each 
label. 

\list<3create{\labelref Olist} 

\©aux is the output stream number for our auxiliary file that contains labeling commands. 

\newwrite\Oaux 

The \do©labelsfile macro opens the auxiliary labels file and executes it; the file should 
consist of a stream of \make 01 abels commands. Then it opens a new auxiliary file, and 
redefines itself so that it isn’t called again. This will be called by the first \label or reference 
command that appears in the text—and not at all if there are no labels or references, so we 
won’t bother at all with an . aux file if there’s no need for it. 

\def \do©labelsf ile{'/, 

\openin\©inputcheck=\jobname.aux 
\ifeof\<§inputcheck \else 
\closein\Oinputcheck 
\begingroup 

Vnakeatletter \catcode‘\**M=9 
\input\j obname.aux 
\endgroup 
\fi 

\iiranediate\openout\@aux=\jobname. aux 
\global\let\do@labelsfile=\relax} 

The \label command first writes a \@lab macro to the \linenum©out file. It then 
checks to see that the \labelref Olist actually has something in it (if not, it creates a 
dummy entry), and pops the next value for the current label, storing it in \labelQrefs. 
Finally it defines the label to be \empty so that any future check will turn up the fact that it 
has been used . 38 

\def \zz0©0{000 10001000} '/, set three counters to zero in one go 

\def Mabel# l{\do©labelsfile 

\write\linenum@out{\string\@lab}*/, 

\ifx\labelref@list\empty 
\xdef MabelOref s{\zz©0©}'/, 

\else 

\gl0pMabelref01ist\toMabel©ref s 
\f i 

\edef\next{\write\0aux{\string\make01abels MabelOref s I {#1}}}'/, 

\next} 

The \make 01 abels macro gets executed when the labels file is read. For each label it 
defines a macro, whose name is made up partly from the label you supplied, that contains the 

,8 The remaining macros in this section were kindly revised by Wayne Sullivan, who substantially improved their 
efficiency and flexibility. 


\labelrefOlist 


\0aux 


\do01abelsfile 


Mabel 

\zz000 


\make01abels 
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10 Cross referencing 


\Qlab 


\pageref 

\xpageref 


\lineref 

\xlineref 

\sublineref 

\xsublineref 

\ref Sundefined 


\getref @num 


page, line and sub-line numbers. But first it checks to see whether the label has already been 
used (and complains if it has). 

\def\make@labels#l I #2 I #3 I #4{*/. 

\expandafter\ifx\csname the@label#4\endcsname \relax\else 
\edmac@warning{Duplicate definition of label ‘#4’ 
on page \number\pageno. }'/, 

\f i 

Xexpandafter\gdef\csname the@label#4\endcsname{#l I #2 I #3}'/, 

\ignorespaces} 

The \@lab command, which appears in the XlinenumSout file, appends the current 
values of page, line and sub-line to the XlabelrefSlist. These values are defined by 
the earlier \@page, \@1, and the XsubSon and XsubSoff commands appearing in the 
XlinenumSout file. 

\def\@lab{\xright@appenditem 
{\the\page@num I \the\line@num I'/, 

\ifsublines® \the\subline@num \else 0\fi}\to\labelref@list} 

If the specified label exists, Xpageref gives its page number. For this reference command, 
as for the other two, a special version with prefix x is provided for use in places where the 
command is to be scanned as a number, as in Xlinenum. These special versions have two 
limitations: they don’t print error messages if the reference is unknown, and they can’t appear 
as the first label or reference command in the file; you must ensure that a Xlabel or a normal 
reference command appears first, or these x-commands will always return zeros. 

\defXpageref#l{\refQundefined{#l}\getref@num{l}{#l}} 

\def\xpageref#l{\getref@num{l}{#l}} 

If the specified label exists, Xlineref gives its line number. 

\defXlineref#l{\ref@undefined{#l}\getref@num{2}{#l}} 

\def\xlineref#l{\getref@num{2}{#l}} 

If the specified label exists, \sublineref gives its sub-line number. 

\def\sublineref#l{\ref©undefined!#l}\getref@num{3}{#l}} 

\defXxsublineref#l{\getref@num{3}{#l}} 

The next three macros are used by the referencing commands above, and do the job of 
extracting the right numbers from the label macro that contains the page, line, and sub-line 
number. The Xref@und.ef ined macro is called when you refer to a label with the normal 
referencing macros. Its argument is a label, and it just checks that the labels file has indeed 
been opened and read (if not, it does so), and that the label is defined (if not, it squeals). (It is 
these checks which the x- forms of the reference macros leave out.) 

\def\ref@undefined#l{\do@labelsfile 

Xexpandafter\ifxXcsname the@label#l\endcsname\relax 
\edmac@warning{Reference ‘#1’ 

on page \the\pageno\space undefined. Using ‘000’.}*/, 

Xfi} 

Next, Xgetref @num fetches the number we want. It has two arguments: the first is simply 
a digit, specifying whether to fetch a page (1), line (2) or sub-line (3) number. (This switching 
is done by calling \label@parse.) The second argument is the label-macro, which because 
of the \@lab macro above is defined to be a string of the type 123 1456 I 789. 

Xdef Xgetref @num#l#2{*/, 

Xexpandafter 

\ifx\csname the@label#2\endcsname \relax 

000 */. 

\else 

XexpandafterXexpandafterXexpandafter 
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\label@parse\csname the@label#2\endcsname |#1'/, 

\fi} 

Notice that we slipped another I delimiter into the penultimate line of \getref toum, to 
keep the “switch-number” separate from the reference numbers. This I is used as another 
parameter delimiter by \label@parse, which extracts the appropriate number from its first 
arguments. The I -delimited arguments consist of the expanded label-macro (three reference 
numbers), followed by the switch-number (1, 2, or 3) which defines which of the earlier three 
numbers to pick out. (It was earlier given as the first argument of \getref @num.) 

\def\label@parse#l I #2 I #3 I #4{*/ t 
\ifcase #4\relax 
\or #1*/, 

\or #2'/, 

\or #3*/, 

\fi} 

The \xxref command takes two arguments, both of which are normal labels. For 
example: \xxref {mouseMelephant}. It first does some checking to make sure that the 
labels do exist (if one doesn’t, those numbers are set to zero). Then it calls \linenum and sets 
the beginning page, line, and sub-line numbers to those of the place where \label{mouse} 
was placed, and the ending numbers to those at \label{elephant}. The point of this is to 
be able to manufacture footnote line references to passages which can’t be specified in the 
normal way as the first argument to \text for one reason or another. Using \xxref in the 
second argument of \text lets you set things up at least semi-automatically. 

\def \xxref#l#2{*/, 

{\expandafter\ifx\csname the®label#l\endcsname 
\relax \expandafter\let\csname the@label#l\endcsname\zz@@@\fi 
\expandafter\ifx\csname the@label#2\endcsname \relax 
\expandafter\let\csname the@label#2\endcsname\zz@@@\fi 
\linenum{\csname the@label#l\endcsname I */, 

\csname the@label#2\endcsname}}} 

Sometimes the \label command cannot be used to specify exactly the page and line 
desired; you can use the \makelabel macro make your own label. For example, if you say 
“\makelabel{elephant}{101 25 I 0}” you will have created a new label, and a later call 
to \pageref {elephant} would print “10” and \lineref {elephant} would print “25”. 
The sub-line number here is zero, \makelabel takes a label, followed by a page and a line 
number(s) as arguments. 

\def\makelabel#l#2{\expandafter\xdef\csname the@label#l\endcsname{#2}} 

(If you are only going to refer to such a label using \xxref, then you can omit entries in the 
same way as with \linenum (see pp. 46 and 32), since \xxref makes a call to \linenum in 
order to do its work.) 


\label@parse 


\xxref 


\makelabel 
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11 Endnotes 


\@end 
\ifend® 
\end®true 
\end@false 

\end@open 

\end@close 


\end®stuff 


\Aendnote 

\Bendnote 

\Cendnote 

\Dendnote 

\Eendnote 


\Aend 

\Bend 

\Cend 

\Dend 

\Eend 

\endprint 

\®gobblethree 

\®section 


11 Endnotes 

Endnotes of all varieties are saved up in a file, typically named (filename ). end. \@end is the 
output stream number for this file, and \ if end® is a flag that’s true when the file is open. 

\newwrite\®end 

\newif\ifend® 

\end@open and \end@close are the macros that are used to open and close the endnote 
file. Note that all our writing to this file is \immediate: all page and line numbers for the 
endnotes are generated by the same mechanism we use for the footnotes, so that there’s no 
need to defer any writing to catch information from the output routine. 

\def\end®open#l{\end®true\immediate\openout\@end=#l\relax} 

\def\end@close{\end®false\immediate\closeout\@end} 

\end@stuff is used by \beginnumbering to do everything that’s necessary for the 
endnotes at the start of each section: it opens the \@end file, if necessary, and writes the 
section number to the endnote file. 

\def \end@stuff {'/, 

\ifend®\relax\else 

\end®open{\ jobname. end}*/, 

\f i 

\iiranediate\write\®end{\string\®section{\the\section®num}}} 

The following five macros each function to write one endnote to the . end file. Like the 
footnotes, these endnotes come in five series, A through E. We change \newlinechar so that 
in the file every space becomes the start of a new line; this generally ensures that a long note 
doesn’t exceed restrictions on the length of lines in files. 

\def\Aendnote#l{{\newlinechar=’40 

\immediate\write\®end{\string\Aend*/, 

{\ifnumberedpar®\®nums\f i}'/, 

{\ifnumberedpar®\®tag\fi}{#l}}}\ignorespaces} 

\def\Bendnote#l{{\newlinechar=’40 

\iramediate\write\®end{\string\Bend'/, 

{\ifnumberedpar®\®nums\f i}'/, 

{\ifnumberedpar®\®tag\fi}{#l}}}\ignorespaces} 

\def\Cendnote#l{{\newlinechar=’40 

\immediate\write\®end{\string\Cend'/, 

{\ifnumberedpar®\@nums\f i}'/, 

{\ifnumberedpar®\®tag\fi}{#l}}}\ignorespaces} 

\def\Dendnote#l{{\newlinechar=’40 

\iramediate\write\®end{\string\Dend'/, 

{\ifnumberedpar®\®nums\f i}'/, 

{\ifnumberedpar®\®tag\fi}{#l}}}\ignorespaces} 

\def\Eendnote#l{{\newlinechar=’40 

\immediate\write\@end{\string\Eend'/, 

{\ifnumberedpar®\@nums\f i}'/, 

{\ifnumberedpar®\®tag\fi}{#l}}}\ignorespaces} 

\Aendnote and the like write commands called \Aend and so on to the endnote file; these 
are analogous to the various f ootfmt commands above, and they take the same arguments. 
When we process this file, we’ll want to pick out the notes of one series and ignore all the rest. 
To do that, we equate the end command for the series we want to \endprint, and leave the 
rest equated to \@gobblethree, which just skips over its three arguments. The \endprint 
here is nearly identical in its functioning to \normalfootfmt. 



The endnote file also contains \@section commands, which supply the section numbers 
from the main text; standard EDMAC does nothing with this information, but it’s there if you 
want to write custom macros to do something with it. 

\def\endprint#l#2#3{{\notefontsetup{\notenumfont\printlines#11}'/, 
\enspace{\select@lemmafont#lI#2}\enskip#3\par}} 

\def\@gobblethree#l#2#3{} 

\let\Aend=\<3gobblethree 

\let\Bend=\@gobblethree 

\let\Cend=\@gobblethree 

\let\Dend=\@gobblethree 

\let\Eend=\@gobblethree 

\let\@section=\@gobble 

\doendnotes is the command you use to print one series of endnotes; it takes one 
argument, the series letter of the note series you want to print. 

\def\doendnotes#l{\end@close 
\begingroup 

\makeatletter 

\expandafter\let\csname #lend\endcsname=\endprint 
\input\j obname.end 
\endgroup} 

You can say \noendnotes before the first \beginimmbering in your file if you aren’t 
going to be using any of the endnote commands: this will suppress the creation of an . end 
file. If you do have some lingering endnote commands in your file, the notes will be written 
to your terminal and to the TpX log file. 

\def\noendnotes{\global\let\end@stuff=\relax 
\global\chardef\@end=16 } 


\doendnotes 


\noendnotes 
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12 The End 


12 The End 

At signs are no longer letters. 
\makeatother 
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A Examples 

In the following examples, the command \input edmac.doc has been included for com¬ 
pleteness. This is always safe, since EDMAC checks to see if has been loaded before. But, as 
mentioned above, it is usually more convenient to include the EDMAC macros in a pre-digested 
TpX format file, to be invoked with a command such as tex &edmac (filename). 

A.l General example of features 

This made-up example, features. tex, is included purely to illustrate some of EDMAC’s main 
features. It is hard to find real-world examples that actually use as many layers of notes as 
this, so we made one up. The example is a bit tricky to read, but close study and comparison 
with the output (Figure 2) will be illuminating. 


\input edmac.doc 
\hsize 28pc 
\vsize 35pc 

\cropsetup{45pc}{35pc}{4pc}{4pc} 

\headline{Headline \hfil \folio} 

\footlinefFootline \hfil —\folio—\hfil footline} 

\makeatletter 

'/, I’d like a spaced out colon after the lemma: 

\def\spacedcolon{{\rm\thinspace:\thinspace}} 

\def \normalf ootfmt#l#2#3{*/, 

\normal@pars 

\parindent=Opt \parfillskip=Opt plus lfil 
{\notenumfont\printlines#lI}\strut\enspace 
{\select@lemmafont#lI#2}\spacedcolon\enskip#3\strut\par} 

'/, And I’d like the 3-col notes printed with a hanging indent: 

\def \threecolf ootfmt#l#2#3{*/, 

\normal@pars 
\hsize .3\hsize 
\parindent=0pt 

\tolerance=5000 '/, high, but not infinite 

\raggedright 

\hangindentl.5em \hangafterl 
\leavevmode 

\strut\hbox to 1.5em{\notenumfont\printlines#lI\hfil}\ignorespaces 
{\select@lemmafont#lI#2}\rbracket\enskip 
#3\strut\par\allowbreak} 

*/, And I’d like the 2-col notes printed with a double colon: 

\def\doublecolon{{\rm\thinspace::\thinspace}} 

\def \twocolf ootfmt#l#2#3{'/, 

\normal@pars 
\hsize .45\hsize 
\parindent=0pt 
\tolerance=5000 
\raggedright 
\leavevmode 

\strut{\notenumfont\printlines#lI}\enspace 
{\select@lemmafont#lI#2}\doublecolon\enskip 
#3\strut\par\allowbreak} 
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A Examples 


Headline 1 

This is an example of some text with variant readings recorded as ‘a’ 
footnotes. Prom here on, though, we shall have ‘c’. For spice, let us mark 

3 a longer passage, but give a different lemma for it, so that we don’t get a 

4 huge amount of text in a note. Finally, we shouldn’t forget the paragraphed 

5 notes, which are so useful when there are a great number of short notes to be 

6 recorded. 

7 This is a second paragraph, giving more examples of text with variant 

8 readings recorded as ‘a’ footnotes. From here on, though, we shall have ‘b’ 

9 notes in the text. For spice, let us mark a longer passage, but give a different 

10 lemma for it, so that we don’t get a huge amount of text in a note. Finally, we 

11 shouldn’t forget the column notes, which are so useful when there are many 

12 short notes to be recorded. 


1 example:: eximemple C, D. 7 examples :: eximples L, M. 

1 variant:: alternative, A, B. 7 variant:: alternative, A, B. 

2 though :: however a, /3 


2 ‘c’ ] b, pace the text 

8 though] however a, /3 
8 ‘b’] b, as correctly 
stated in the text 
10 Finally] In the end X, 
Y 

10 we] we here K 


2-4 For spice .. . note : The note here is type ‘c’ 

9-10 For spice, .. . note : This is a rogue note of type ‘c’. 


11 shouldn’t] ought not 
to L, M 

11 forget the] omit to 
mention the §, f 
11 column] blocked M, N 
11 notes] variants H 


11 useful ] very, very use¬ 
ful L, P 

11 many ] lots of Z 

12 recorded] recorded 
and put down: M 
(repetition) 


4 huge : vast E, F; note that this is a ‘d’ note to section of text within a longer lemma 
10 huge: vast E, F; note that this is a ‘d’ note to text within a longer lemma. 


4 Finally : in the end X, Y 4 we : us K 4 shouldn’t: ought not to L, M 4 forget the : 

omit to mention the §, 4 paragraphed: blocked M, N 5 notes: variants HH, KK 

5 useful: truly useful L, P 5 a great number of: many, many (preferably) 6 recorded: 
noted: repetition 


Footline 


footline 


Figure 2: Output from features. tex. 
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A. 1 General example of features 


'/, And in the paragraphed footnotes, I’d like a colon too: 

\def \paraf ootfmt#l#2#3{'/, 

\normal@pars 

\parindent=Opt \parfillskip=Opt plus lfil 
{\notenumfont\printlines#lI}\enspace 
{\select@lemmafont#lI#2}\spacedcolon\enskip 
#3\penalty-10 } 

\makeatother 

*/, I’d like the line numbers picked out in bold. 

\let\notenumfont=\eightbf 
\lineation{page} 

\linenummargin{inner} 

\firstlinenum=3 '/, just because I can 

\1inenumincrement=1 
\foottwocol{A} 

\footthreecol{B} 

\f ootparagraph{E} 

'/, I’ve changed \normalfootfmt, so invoke it again for C and D notes. 
\f ootnormal{C} 

\f ootnormal{D} 

\beginnumbering 

\pstart 

This is an \text{example} 

\Afootnote{eximemple C, D.}/ 
of some text with \text{variant} 

\Afootnote{alternative, A, B.}/ 

readings recorded as ‘A’ footnotes. From here on, \text{though} 

\Afootnote{however $\alpha$, $\beta$}/, 
we shall have \text{‘C’} 

\Bfootnote{B, {\it pace\/} the text}/. 

\text{For spice, let us mark a longer passage, but give a different 
lemma for it, so that we don’t get a \text{huge} 

\Dfootnote{vast E, F; note that this is 
a ‘D’ note to section of text within a longer lemma}/ 
amount of text in a note}\lemma{For spice \dots\ note} 

\Cfootnote{The note here is type ‘C’}/. 

\text{Finally} 

\Efootnote{in the end X, Y}/, 

\text{we} 

\Efootnote{us K}/ 

\text{shouldn’t} 

\Efootnote{ought not to L, M}/ 

\text{forget the} 

\Efootnote{omit to mention the \S, \P}/ 

\text{paragraphed} 

\Efootnote{blocked M, N}/ 

\text{notes} 

\Efootnote{variants HH, KK}/, 
which are so \text{useful} 

\Efootnote{truly useful L, P}/ 
when there are \text{a great number of} 

\Efootnote{many, many (preferably)}/ 
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A Examples 


short notes to be \text{recorded} 

\Efootnote{noted: repetition}/. 

\pend 

\pstart 

This is a second paragraph, giving more {\it \text{examples} 

\Afootnote{eximples L, M.}/} 
of text with \text{variant} 

\Afootnote{alternative. A, B.}/ 

readings recorded as ‘A’ footnotes. From here on, \text{though} 

\Bfootnote{however $\alpha$, $\beta$}/, 
we shall have \text{‘B’} 

\Bfootnote{B, as correctly stated in the text}/ notes in the text. 
\text{For spice, let us mark a longer passage, but give a different 
lemma for it, so that we don’t get a {\it \text{huge} 

\Dfootnote{vast E, F; note that this is 
a ‘D’ note to text within a longer lemma.}/} 
amount of text in a note}\lemma{For spice, \dots\ note} 

\Cfootnote{This is a rogue note of type ‘C’.}/. 

\text{Finally} 

\Bfootnote{In the end X, Y}/, 

\text{we} 

\Bfootnote{we here K}/ 

\text{shouldn’t} 

\Bfootnote{ought not to L, M}/ 

\text{forget the} 

\Bfootnote{omit to mention the \S, \P}/ 

\text{column} 

\Bfootnote{blocked M, N}/ 

\text{notes} 

\Bfootnote{variants H}/, 
which are so \text{useful} 

\Bfootnote{very, very useful L, P}/ 
when there are \text{many} 

\Bfootnote{lots of Z}/ 
short notes to be \text{recorded} 

\Bfootnote{recorded and put down: M (repetition)}/. 

\pend 

\endnumbering 

\bye 


A.2 Gascoigne 

The first real-life example is taken from an edition of George Gascoigne’s A Hundreth Sundrie 
Flowres that is being prepared by G. W. Pigman III, at the California Institute of Technology. 
Figure 3 shows the result of setting the text with EDMAC. 

The main input file first calls for a file of initial definitions, called gg.tex. This file, 
shown below, demonstrates how EDMAC macros may be customized to give detailed control 
over the final format. 


'/, parameters for edition of Gascoigne’s 
'/, {\it A Hundreth Sundrie Flowres}. 
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2.1 IOCASTA 73 

Oedipus entreth. 

Or that with wrong the right and doubtlesse heire, 

Shoulde banisht be out of his princely seate. 

Yet thou 0 queene, so fyle thy sugred toung, 

And with suche counsell decke thy mothers tale, 

That peace may bothe the brothers heartes inflame, 5 

And rancour yelde, that erst possest the same. 

Eteocl. Mother, beholde, youre hestes for to obey, 

In person nowe am I resorted hither: 

In haste therefore, fayne woulde I knowe what cause 

With hastie speede, so moued hath your mynde io 

To call me nowe so causelesse out of tyme, 

When common wealth moste craues my onely ayde: 

Fayne woulde I knowe, what queynt commoditie 
Persuades you thus to take a truce for tyme, 

And yelde the gates wide open to my foe, 15 

The gates that myght our stately state defende, 

And nowe are made the path of our decay. 

» Ioca. Represse deare son, those raging stormes of wrath, 

That so bedimme the eyes of thine intente, 

5 )As when the tongue (a redy Instrument) 20 

Would fayne pronounce the meaning of the minde, 

5 ?It cannot speake one honest seemely worde. 

„But when disdayne is shrunke, or sette asyde, 

And mynde of man with leysure can discourse 

What seemely woordes his tale may best beseeme, 25 

•1 And that the toung vnfoldes without affectes 
»Then may proceede an answere sage and graue, 

•1 And euery sentence sawst with sobernesse: 

Wherefore vnbende thyne angrie browes deare chylde, 

And caste thy rolling eyes none other waye, 30 

That here doost not Medusaes face beholde, 

But him, euen him, thy blood and brother deare. 

And thou beholde, my Polinices eke, 

Thy brothers face, wherin when thou mayst see 

Thine owne image, remember therwithall, 35 

That what offence thou woldst to him were done, 

0.1 entreth] intrat MS 20-22 As . . . worde.] not in 73 20 the] thie MS 

21 fayne pronounce] faynest tell MS 21 the minde] thy minde MS 22 It 
. . . worde.] Thie swelling hart puft vp with wicked ire / Can scarce pronounce 
one inward louing thought. MS 31 Medusaes ] One of the furies. 75 m 


Figure 3: Output from iocasta.tex. 


85 



A Examples 


\ifx\ggloaded\relax\endinput\else\let\ggloaded=\relax\fi 

\noendnotes 

\makeatletter 

7. 

\font\poemnumfont=cmmil2 \font\titlefont=cmrl2 \font\ninerm=cmr9 

\font\nineit=cmti9 \font\eightrm=cmr8 

\let\headfont=\eightrm 

\font\eightit=cmti8 \let\headit=\eightit \font\sixrm=cmr6 

\f ont\f oliof ont=cimni8 \let\os=\f oliof ont 

\let\numlabfont=\foliofont 

7. 

\firstsublinenum=1000 

\hoffset=l.25in \voffset=l.25in \hsize=24pc \vsize=488pt 

*/. 

\frenchspacing \parskip=Opt \hyphenpenalty=1000 

7 . 

\def\makeheadline{\vbox to 0pt{\vskip-16.5pt 

\line{\vbox to8.5pt{}\the\headline}\vss}\nointerlineskip} 
\nopagenumbers 

7 . 

7. Say \nolinenums if you want no line numbers in the notes. 

\newif\ifnolinenums 

\def\nolinenums{\global\nolinenumstrue} 

\def\linenums{\global\nolinenumsfalse} 
i Say \nopoemnum to suppress poem number in the notes. 

\newif\ifpoemnum 

\def\nopoemnum{\global\poemnumfalse} 

7. Say \nodbpoemnum to suppress poem number in the notes for 
7. poems with two numbers, e.g., 64 (v) . 

\newif\ifdbpoemnum 

\def\nodbpoemnum{\global\dbpoemnumfalse} 

i Say \noactnum to suppress act/scene numbers in the notes. 

\newif\ifactnum 

\def\noactnum{\global\actnumfalse} 

7. 

\newcount\poemnumber 

\def\poem#l{\poemnumber=#l\poemnumtrue\parindent=Opt 
\centerline{{\poemnumfont#l}}\vskipl2pt} 

7. 

\newcount\dbpoemnumone \newcount\dbpoemnumtwo 
\def\dbpoem#l#2{\dbpoemnumtrue\dbpoemnumone=#l\dbpoemnumtwo=#2 
\parindent=Opt\par 

\centerline{{\poemnumfont#l} {\titlefont 
(\romannumeral#2)}}\nointerlineskip \vskipl2pt} 

7. 

\newcount\actnumber \newcount\scenenumber 

\def\act #1 #2 #3{\actnumtrue\actnumber=#l\scenenumber=#2 

\parindent=0pt\vskip24pt plusl2pt minus3pt\hrule heightOpt\relax 
\pstart\startsub\centerline{\rm#3}\pend\endsub 

\mark{{\os#l\fullstop #2}}\nobreak \vskip 12pt plus3pt minus3pt} 

7. 

\def\rightlinenum{\ifbypage®\ifnum\line@num<10\kern.5em\fi\else 
\ifnum\line@num<10\kernlem\else\ifnum\line@num<100 
\kern.5em\fi\fi\fi\kern.5em\numlabfont\the\line@num 
\ifnum\subline@num>0:\the\subline@num\fi} 

\def\leftlinenum{\numlabfont\the\line@num 
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\ifnum\subline@num>0:\the\subline@num\fi \kern.5em} 
\linenummargin{outer} 

\lineation{page} 

\def \ggf ootfmt#l#2#3{'/, 

\notefontsetup 
\let\par=\endgraf 
\rightskip=Opt \leftskip=Opt 
\parindent=Opt \parfillskip=Opt plus lfil 
\ifnolinenums\relax\else 

\begingroup \os \panums \printlines#lI\endgroup 
\enskip 
\f i 

{\rm #2\def\@tempa{#2}\ifx\@tempa\empty 
\else]\enskip\fi#3\penalty-10 }} 

*/. 

*/, \panums adds the poem number or act/scene number to a 
'/, line number display when necessary. 

*/. 

\def \panums{'/, 

Mfpoemnum '/. a poem 

\the\poemnumber: */, 

\global\poemnumfalse 

\f i 

Mfdbpoemnum '/, a poem with two numbers 

\the\dbpoemnumone\space 

{\rm(\romannumeral\the\dbpoemnumtwo) .}'/, 
\global\dbpoemnumfalse 
\f i 

\ifactnum '/, a play (act/scene) 

\the\actnumber: \the\scenenumber:'/, 

\global\actnumfalse 
\fi} 

*/. 

'/, Now reset the \Afootnote parameters and macros: 

\f ootparagraph{A} 

\let\Afootfmt=\ggfootfmt 

\dimen\Afootins=\vsize 

\skip\Afootins=3pt plus9pt 

\def\ggfootstart#l{\vskip\skip\Afootins} 

\let\Afootstart=\ggfootstart 

\def\title{\pstart\startsub\let\par=\endtitle} 

\def\endtitle{\pend\endsub} 

\def\verseskip{\vskip6pt plus6pt} 

\def\speaker#l{\pstart\parindent=lem\let\par=\pend 
{\tenit{#l}}\hbox to lex{}\ignorespaces} 

\def\sen{\leavevmode\lowerlex\hbox{\tenrm’’}} 

\def \senspeak#l{\pstart\obeylines\setboxO=\hbox{\tenrm , ’}'/, 
Meavevmode 

\lowerlex\copyO\kern-\wdO\hskiplem{\tenit{#l}}'/, 

\hbox tolex{}\ignorespaces} 

\def \speak#l{\pst art\obey lines \hskiplem{\tenit{#l}}'/, 

\hbox tolex-QMgnorespaces} 

\def\nospeaker{\parindent=0em\pstart\let\par=\pend} 

\def\nospeak{\pstart\obeylines} 

\def\stage#l{\pstart\startsub\parindent=Opt 
\hangindent=3em\hangafter=0 
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{\tenit#l}\let\par=\endstage} 

\let\endstage=\endtitle 

\def\motto#l{\pstart\startsub\centerline{{\tenit#l}}\pend\endsub} 
\def\finis#l{\pstart\startsub\smallskip\centerline{{\tenit#l}} 
\let\par=\endfinis} 

\let\endfinis=\endtitle 

\def\initials#l{\pstart\line{\hfil{\it #l}\quad}\let\par=\pend} 
Vnakeatother 


With these definitions, the actual input file, iocasta.tex, is relatively simple: 


\input edmac.doc 
\input gg 
\parindent=0pt 
\pageno=73 
\mark{{\os2:1}} 

\headline={\ifnum\pageno>61\ifodd\pageno 

\rlap{\f oliof ont\botmark}\hfil\headf ont 
IOCASTA\hf il\llap{\f oliof ont\f olio}'/, 

\else 

\rlap{\foliofont\folio}\hfil\headfont 
IOCASTA\hfil\llap{\foliofont\botmark}\fi 
\else\hfil\fi} 

\beginnumbering 

\stage{Oedipus \text{entreth}\Afootnote{{\it intrat} MS}/.} 
\nospeak 

Or that with wrong the right and doubtlesse heire, 

Shoulde banisht be out of his princely seate. 

Yet thou 0 queene, so fyle thy sugred toung. 

And with suche counsell decke thy mothers tale. 

That peace may bothe the brothers heartes inflame. 

And rancour yelde, that erst possest the same. 

\pend 

\speak{Eteocl.} Mother, beholde, youre hestes for to obey. 

In person nowe am I resorted hither: 

In haste therefore, fayne woulde I knowe what cause 
With hastie speede, so moued hath your mynde 
To call me nowe so causelesse out of tyme. 

When common wealth moste craues my onely ayde: 

Fayne woulde I knowe, what queynt commoditie 
Persuades you thus to take a truce for tyme. 

And yelde the gates wide open to my foe. 

The gates that myght our stately state defende. 

And nowe are made the path of our decay. 

\pend 

\senspeak{Ioca.}Represse deare son, those raging stormes of wrath, 
\sen That so bedimme the eyes of thine intente, 

\text{\sen As when \text{the}\Afootnote{thie MS}/ tongue '/, 

(a redy Instrument) 
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\sen Would \text{fayne pronounce}\Afootnote{faynest tell MS}/ '/, 
the meaning of \text{the minde}\Afootnote{thy minde MS}/, 

\sen \text{It}\lemma{It \dots\ worde.}\Afootnote{Thie */, 

swelling hart puft vp with wicked ire / Can scarce pronounce '/, 
one inward louing thought. MS}/ cannot speake one honest */, 
seemely worde . }\lemma{As \dots\ worde. }\Afootnote{{\it not '/, 
in\/} \os73}/ 

\sen But when disdayne is shrunke, or sette asyde, 

\sen And mynde of man with leysure can discourse 
\sen What seemely woordes his tale may best beseeme, 

\sen And that the toung vnfoldes without affectes 
\sen Then may proceede an answere sage and graue, 

\sen And euery sentence sawst with sobernesse: 

Wherefore vnbende thyne angrie browes deare chylde. 

And caste thy rolling eyes none other waye. 

That here doost not \text{{\it Medusaes\/}}'/, 

\Afootnote{0ne of the furies. {\os75}m}/ face beholde. 

But him, euen him, thy blood and brother deare. 

And thou beholde, my {\it Polinices\/} eke. 

Thy brothers face, wherin when thou mayst see 
Thine owne image, remember therwithall. 

That what offence thou woldst to him were done, 

\pend 

\endnumbering 

\bye 


A.3 Shakespeare 

The following text illustrates another input file of moderate complexity, with two layers of 
annotation in use. The example is taken from the Arden Merchant of Venice. First, the file 
arden. sty contains a set of font definitions and format specifications: 


\makeatletter 

'/, Macros for the edition: 

\def\stage#l{\rlap{\hbox to \the\linenumsep{’/, 

\hfil\llap{[{\it#l\/}]}}}} 
\def\speaker#l{\pstart\hangindent2em\hangafterl 
\leavevmode{\it#l}\enspace\ignorespaces} 

\def\\{\hfil\break} 

\def\exit#l{\hfill\stage{#l}} 

/ EDMAC customizations: 

\noendnotes \vsize 40pc \hsize 23pc \parindent Opt 

\linenumsep=,4in \rightskip\linenumsep 

\def\interparanoteglue{lem plus.5em minus.lem} 

\catcode‘\<=\active 

\def\xtext#l#2>{\text{#l}{#2}/} 

\let<=\xtext 

\let\numlabfont=\eighti 
\let\sc=\fiverm 
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\let\Afootnoterule=\relax \let\Bfootnoterule=\relax 
\footline={\hfil} 

\def\rightlinenum{\numlabfont\llap{\the\line@num}} 

\pageno=46 

\headline={\eightpoint{\teni\folio}\hfil 

THE MERCHANT OF VENICE\hfil [ACT II} 
\cropsetup{8in}{5in}{3.5pc}{3pc} 

\hoffset=.75in \voffset=.9375in 

\frenchspacing 

i Footnote formats: 

i \nonumparafootfmt is a footnote format without line numbers. 
\def \nonumpar afoot fmt#l#2#3{*/, 

\normal@pars 

\rightskip=Opt 

\parindent=Opt \parfillskip=Opt plus lfil 
\select@lemmafont#lI#2\rbracket\enskip 
\it#3\penalty-10 } 

\def \newparaf ootfmt#l#2#3{*/, 

\normal@pars 

\parindent=Opt \parfillskip=Opt plus lfil 
{\notenumfont\printlines#lI}\fullstop\enspace 
{\select@lemmafont#lI#2}\rbracket\enskip 
\it#3\penalty-10 } 

\def \newtwocolf ootfmt#l#2#3{*/, 

\normal@pars 
\hsize .48\hsize 
\tolerance=5000 

\rightskip=Opt \leftskip=Opt \parindent=5pt 
\strut\notenumfont\printlines#lI\fullstop\enspace 
\it#2\/\rbracket\penaltyl00\hskip .5em plus .5em 
\rm#3\strut\goodbreak} 

7, Footnote style selections etc. (done last): 

\f ootparagraph{A} 

\foottwocol{B} 

\let\Afootfmt=\newparafootfmt 
\let\Bfootfmt=\newtwocolfootfmt 
\let\collation=\Afootnote 
\let\note=\Bfootnote 
\lineation{section} 

\linenummargin{right} 

\makeatother 


The Arden text, using the above definitions, is input as follows (the output is shown in 
Figure 4): 


\input edmac.doc 
\input arden.sty 

l Initially, we don’t want line numbers. 
\let\Afootfmt=\nonumparafootfmt 

\beginnumbering 
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46 


THE MERCHANT OF VENICE 


[ACT II 


[SCENE III. — Venice.] 

Enter JESSICA and [LAUNCELOT] the clown. 

Jes. I am sorry thou wilt leave my father so, 

Our house is hell, and thou (a merry devil) 

Didst rob it of some taste of tediousness,— 

But fare thee well, there is a ducat for thee, 

And Launcelot, soon at supper shalt thou see 5 

Lorenzo, who is thy new master’s guest, 

Give him this letter,—do it secretly,— 

And so farewell: I would not have my father 
See me in talk with thee. 

Laun. Adieu! tears exhibit my tongue, most beautiful pa- 10 
gan, most sweet Jew!—if a Christian do not play the 
knave and get thee, I am much deceived; but adieu! 
these foolish drops do something drown my manly 
spirit: adieu! [Exit.] 

Jes. Farewell good Launcelot. 15 

Alack, what heinous sin is it in me 
To be ashamed to be my father’s child! 


Scene III] Capell; om. Q, F; Scene IV Pope. Venice ] om. Q, F; Shylock’s 
house Theobald; The same. A Room in Shylock’s House Capell. Launcelot ] 
Rowe; om. Q, F. 1. Iam] Q, F; I’m Pope. 9. in] Q; om. F. 10 . Laun. ] 
Q2; Clowne. Q, F. 10 . Adieu!] Adiew, Q, F. 11 . Jew!] Iewe, Q, F. do] 
<5, F; did F2. 12 . adieu!] adiew, Q, F. 13. something] Q; somewhat 
F. 14. adieu!] adiew. Q, F. S. D.] Q2, F; om. Q; after l. 15 Capell. 
17. child! ] child, Q, F; Child? Rowe. 


5. soon] early. 

10 . exhibit] Eccles paraphrased 
“My tears serve to express what my 
tongue should, if sorrow would per¬ 
mit it,” but probably it is Launce- 
lot’s blunder for prohibit (Halliwell) 
or inhibit (Clarendon). 

10—11. pagan] This may have a 
scurrilous undertone: cf. 2 H 4, n. 
ii. 168. 

11 . do] Malone upheld the read¬ 


ing of Qq and F by comparing ii. vi. 
23: “When you shall please to play 
the thieves for wives”; Launcelot 
seems fond of hinting at what is go¬ 
ing to happen (cf. ii. v. 22-3). If F2’s 
“did” is accepted, get is used for be¬ 
get, as in in. v. 9. 

13-14. foolish. .. spirit] “tears do 
not become a man” ( AYL ., hi. iv. 
3); cf. also H 5, iv. vi. 28-32. 


Figure 4: Output of the Arden text. 
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\pstart 

\centerline{[<{SCENE III} 

\lemma{Scene III} 

\collation{Capell; om. Q, F; {\rm Scene IV} Pope.}>.-'/, 

<{\it Venice} 

\collation{om. Q, F; Shylock’s house Theobald; The same. 

A Room in Shylock’s House Capell.}>.]} 

\pend 

\bigskip 

\pstart 

\centerline{\it Enter\/ {\rm JESSICA} and\/ 

{\rm [<{LAUNCELOT} 

\lemma{Launcelot} 

\collation{Rowe; om. Q, F.}>]} the clown.} \pend \bigskip 

\let\Afootfmt=\newparafootfmt '/, we do want line numbers from now 

\setline{0}'/, 

\speaker{Jes.}<{I am} 

\collation{Q, F; {\rm I’m} Pope.}> 

sorry thou wilt leave my father so,\\ 

Our house is hell, and thou (a merry devil)\\ 

Didst rob it of some taste of tediousness,-\\ 

But fare thee well, there is a ducat for thee,\\ 

And Launcelot, <{soon} 

\note{early.}> 

at supper shalt thou see\\ 

Lorenzo, who is thy new master’s guest,\\ 

Give him this letter,-do it secretly,-\\ 

And so farewell: I would not have my fatherW 
See me <{in} 

\collation{Q; om. F.}> 

talk with thee. 

\pend 

\speaker{Laun.} 

<{}\lemma{\it Laun.}\collation{Q2; Clowne. Q, F.}>'/, 

<{Adieu!} 

\collation{{\rm Adiew}, Q, F.}> 
tears <{exhibit} 

\note{Eccles paraphrased ‘‘My tears serve to express what my 
tongue should, if sorrow would permit it,’’ but probably it is 
Launce\-lot’s blunder for prohibit (Halliwell) or inhibit 
(Clarendon).}> 

my tongue, most beautiful <{pagan} 

\note{This may have a scurrilous undertone: cf. {\it 2 H 4,} 

\sc II. \rm ii. 168.}>'/, 

, most sweet <{Jew!} 

\collation{{\rm Iewe}, Q, F. \quad {\rm do]} Q, F; 

{\rm did} F2 . }>*/, 

-if a Christian <{do} 

\note{Malone upheld the reading of Qq and F by comparing \sc 
II. \rm vi. 23: ‘‘When you shall please to play the thieves for 
wives’’; Launcelot seems fond of hinting at what is going to 
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happen (cf. \sc II. \rm v. 22—3). If F2’s ‘‘did’’ is accepted, 
{\it get\/} is used for beget, as in \sc III. \rm v. 9.}> 
not play the knave and get thee, I am much deceived; but <{adieu!} 
\collation{{\rm adiew}, Q, F.}> 
these <{foolish drops do \text{something} 

\collation{Q; {\rm somewhat} F.}/ 
drown my manly spirit} 

\lemma{foolish{\rm\dots}spirit} 

\note{‘‘tears do not become a man’’ (\it AYL., \sc III. \rm 
iv. 3); cf. also \it H 5, \sc IV. \rm vi. 28—32. }>'/, 

: <{adieu!} 

\collation{{\rm adiew}. Q, F. \quad {\rm S. D.]} Q2, F; om. Q; 
after 1. 15 Capell.}> 

\exit{Exit.} 

\pend 

\speaker{Jes.} 

Farewell good Launcelot.W 

Alack, what heinous sin is it in me\\ 

To be ashamed to be my father’s <{child!} 

\collation{{\rm child}, Q, F; {\rm Child?} Rowe.}> 

\pend 

\endnumbering 

\bye 


A.4 Classical text edition 

The next example, which was extracted from a longer file kindly supplied by Wayne Sullivan, 
University College, Dublin, Ireland, illustrates the use of EDMAC to produce a Latin text 
edition, the Periphyseon , with Greek passages. 39 The Greek font used is that prepared by 
Silvio Levy and described in TUGboat , 40 The output of this file is shown in Figure 5. Note 
the use of two layers of footnotes to record testimonia and manuscript readings respectively. 
The following EDMAC customizations are loaded initially, as file slhh.tex: 


\overfullruleO pt 

\hsize=25pc 

\vsize=44pc 

\lefthyphenmin=3 

*/,\overfullrule=Opt 

\input greekmac 

Xgreekdelims 

\input edmac.doc 

\makeatletter 

\newbox\lp@rbox 

'/, We need an addition to \no@expands since the \active $ in greekmac 
*/, causes problems: 

\def\morenoexpands{\let$=0} 

\def \f f ootnote#l{'/, 

v, The bibliographic details of the forthcoming book are: Iohannis Scotti Erivgenae, Periphyseon (De Diuisione 
Naturae) Liber Qvartvs [Scriptores Latini Hiberniae vol. xii], (Dublin: School of Celtic Studies. Dublin Institute for 
Advanced Studies, forthcoming 1992). 

40 TUGboat 9 (1988), pp. 2(D24. 
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ANAKE$AAIOSIS 

NATVRARVM 


Periphyseon, Liber IV 
Incipit Quartus nEPI^TEEHN 

NVTRITOR. Prima nostrae Physiologiae intentio praecipuaque 
materia erat quod TIIEPOTEIAAEE (hoc est superessentialis) 
natura sit causa creatrix existentium et non existentium omnium, 
a nullo creata, unum principium, una origo, unus et uniuersalis 
uniuersorum fons, a nullo manans, dum ab eo manant omnia, 
trinitas coessentialis in tribus substantiis, ANAPXOE (hoc est sine 
principio), principium et finis, una bonitas, deus unus, OMOTEIOE 
et TIIEPOTEIOE (id est coessentialis et superessentialis). Et, ut 
ait sanctus Epifanius, episcopus Constantiae Cypri, in ArKTPATH 
sermone de fide: Tria sancta, tria consancta, tria agentia, tria 
coagentia, tria formantia, tria conformantia, tria operantia, tria 
cooperantia, tria subsistentia, tria consubsistentia sibi inuicem 
coexistentia. Trinitas haec sancta uocatur: tria existentia, una 
consonantia, una deitas eiusdem essentiae, eiusdem uirtutis, eiusdem 
subsistentiae, similia similiter aequalitatem gratiae operantur patris 
et filii et sancti spiritus. Quomodo autem sunt, ipsis relinquitur 
docere: ‘Nemo enim nouit patrem nisi filius, neque ftlium nisi 
pater, et cuicumque filius reuelauerit’; reuelatur autem per spiritum 
sanctum. Non ergo haec tria existentia aut ex ipso aut per ipsum 
aut ad ipsum in unoquoque digne intelliguntur, \ R, 264 r | sicut ipsa 
reuelant: <f>nE, IITP, IINETMA (hoc est lux, ignis, spiritus). 

Haec, ut dixi, ab Epifanio tradita, ut quisquis interrogatus quae 
tria et quid unum in sancta trinitate debeat credere, Sana fide | J, l v | 
respondere ualeat, aut ad fidem accedens sic erudiatur. Et mihi uide- 
tur spiritum pro calore posuisse, quasi dixisset in similitudine: lux, 
ignis, calor. Haec enim tria unius essentiae sunt. Sed cur lucem primo 
dixit, non est mirum. Nam et pater lux est et ignis et calor; et filius 
est lux, ignis, calor; et spiritus sanctus lux, ignis, calor. Illuminat 
enim pater, illuminat filius, illuminat spiritus sanctus: ex ipsis enim 
omnis scientia et sapientia donatur. 

18-19 Matth. 11, 27 22 EPIPHANIVS, Ancoratus 67; PG 43, 137C-140A; GCS 
25, p. 82, 2-12 


1 incipit . . . IIEPI<f>YEEfiN] om. R, incipit quartus M 2 ANAKE4>AAIOEIE ] 
FJP, lege avaxscpaXodwai*; 2 physiologiae] phisiologiae P , physeologiae R 
3 quod] p. natura transp. MR 3 YIIEPOYEIAAEE] codd. Vtrum Cmep- 
ouauo8-r)<; (hoc est superessentialis) natura cum Gale (p.160) an ojtepoo<n6T7)<; 
(hoc est superessentialis natura) cum Floss (PL 122,741 C) intelligendum 
sit, ambigitur 8 OMOTEIOE] codd., lege op.oou<no<; 9 et] R 1 , om. R° 
10 ArKYPATfi] anchurato MR 11 de fide] Glo(ssa): Ita enim uocatur 
sermo eius de fide ArKYPATOE, id est procuratus mg. add. FJP 11 agentia] 
actiua MR 12 formantia] formatiua MR 12 operantia] operatiua MR 
15 eiusdem] eiusdemque M 15-16 eiusdem uirtutis, eiusdem subsistentiae] 
om. M 16 subsistentiae] substantiae R 16 similiter] ex simili MR 17 sunt] 
om. M 29 spiritus sanctus] sanctus spiritus R 


2 


Figure 5: Output of the Periphyseon, Liber IV. 
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\ifnumberedpar@ 

\xright@appenditem{\noexpand\vf f ootnote{f }{{\@nums}{\@tag}{#l}}}'/, 

\to\inserts@list 

\global\advance\insert@count by 1 
'/, \else may be used only in numbered text 

'/, \vf f ootnote{f }{{0 I 0 I 0 I 0 10 10 I 0HH#1}}*/, 

\fi\ignorespaces} 

\def \gf ootnote# 1{'/, 

\ i f numbe r e dp ar <9 

\xright@appenditem{\noexpand\vgf ootnote{g}{#l}}'/, 

\to\inserts@list 

\global\advance\insert@count by 1 
'/, \else may be used only in numbered text 

'/. \vgf ootnote{g}{#l}'/, 

\fiXignorespaces} 

\def\raggedleft{\leftskip\z@*/, This is a hack; doubtless there are better ways. 

plus5em\spaceskip.3333em\xspaceskip.5em\parfillskip\z@\relax} 

\def \setlp@rbox#l#2#3{*/, 

{\parindent\z@\hsize=2.5cm\raggedleft\eightpoint 
\baselineskip 9pt'/, 

\global\setbox\lp@rbox=\vbox to\z@{\vss#3}}} 

\def\vffootnote#l#2{\setlp@rbox#2} 

\def\vgfootnote#l#2{\def\rd@ta{#2}} 

\def \do@line{'/, 

{\vbadness=10000 \splittopskip=Opt 

\gdef\rd@ta{}'/, for right margin paragraph->always a few characters 
\global\setbox\one@line=\vsplit\raw@text to\baselineskip}'/, 

\unvbox\one@line \global\setbox\one@line=\lastbox 
\getline@num 

\hbox to\hsize{\affixline@num\add@inserts\hbox to\z@*/, inserts added here so 
{\hss\box\lp@rbox\kern\linenumsep}'/, that margin pars are 

\hfil\hbox to\wd\one@line{\new@line\unhbox\one@line*/, included. 

\hbox to\z@{\kern\linenumsep\notenumf ont\rd@ta\hss }}}'/, 

\add@penalties} '/, margin pars also included in line format 
\def \af f ixline<§num{*/, 

\ifsublines® 

\@tempcntb=\subline@num 
\ifnum\subline@num>\firstsublinenum 
\@tempcnta=\subline@num 
\advance\@tempcnta by-\firstsublinenum 
\divide\@tempcnta by\sublinenumincrement 
\multiply\@tempcnta byXsublinenumincrement 
\advance\@tempcnta by\firstsublinenum 
\else 

\<§tempcnta=\f irstsublinenum 

Xfi 

*/. 

\ifcase\sub@lock 
\or 

\ifnum\sublock@disp=l 

\@tempcntb=0 \<§tempcnta=l 

Xfi 

\or 

\ifnum\sublock@disp=2 \else 
\@tempcntb=0 \<§tempcnta=l 

Xfi 
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\or 

\ifnum\sublock@disp=0 

\@tempcntb=0 \@tempcnta=l 
\fi 
\fi 
\else 

\@tempcntb=\line@num 
\ifnum\line@num>\firstlinenum 
\@tempcnta=\line@num 
\advance\@tempcnta by-\firstlinenum 
\divide\@tempcnta by\linenumincrement 
\multiply\@tempcnta by\linenumincrement 
\advance\@tempcnta by\firstlinenum 
\else 

\<§tempcnta=\f irstlinenum 
\fi 

\ifcase\@lock 
\or 

\ifnum\lock@disp=l 

\@tempcntb=0 \@tempcnta=l 
\fi 
\or 

\ifnum\lock@disp=2 \else 

\@tempcntb=0 \@tempcnta=l 
\fi 
\or 

\ifnum\lock@disp=0 

\@tempcntb=0 \@tempcnta=l 
\fi 
\fi 
\fi 
*/. 

\ifnum\@tempcnta=\<3tempcntb 
\<3tempcntb=\line@margin 
\ifnum\@tempcntb>l 

\advance\@tempcntb by\page@num 
\fi 

\ifodd\@tempcntb 

'/, #l\rlap{{\rightlinenum}}'/, 

\xdef \rd@ta{\the\line@num}'/, 

\else 

\llap{{\lef tlinenum}}*/,#l'/, 

\fi 

\else 

7.917. 

\f i 

\ifcase\@lock 
\or 

\global\@lock=2 
\or \or 

\global\@lock=0 
\f i 

\ifcase\sub@lock 
\or 

\global\sub@lock=2 
\or \or 
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\global\sub@lock=0 

\fi} 

*/. 

We want to include a small Greek font in the definition 
*/, of \eightpoint: 

\let\oldeightpoint=\eightpoint 
\f ont\eightgr=grreg8 

\def\eightpoint{\oldeightpoint\let\tengr=\eightgr} 
\output{\advancepageno\edmac@output} '/, even page numbers 
\lineation{page} 

\linenummargin{right} 

\f ootparagraph{A} 

\f ootparagraph{B} 

\let\notenumfont=\eightrm 
\let\notetextfont=\eightpoint 
\let\Afootnoterule=\relax 
\count\Afootins=825 
\count\Bfootins=825 
\def\Aparaf ootfmt #1#2#3{*/, 

\normal@pars\eightpoint 

\parindent=Opt \parfillskip=Opt plusIfil 
\notenumfont\printlines#lI\enspace 
'/, \lemmaf ont#l | #2\enskip 

\notetextfont 

#3\penalty-10\hskip lem plus 4em minus.4em\relax} 
\def\Bparaf ootfmt #1#2#3{*/, 

\normal@pars\eightpoint 

\parindent=Opt \parfillskip=Opt plusIfil 
\notenumfont\printlines#lI\enspace 
\select@lemmafont#lI#2\rbracket\enskip 
\notetextfont 

#3\penalty-10\hskip lem plus 4em minus.4em\relax } 
\makeatother 

\let\Afootfmt=\Aparafootfmt 
\let\Bfootfmt=\Bparafootfmt 

\def\lemmafont#lI#2 I#3 I#4 I#5 I#6 I#7 I{\eightpoint} 
\headline={\hfil\tenit Periphyseon, Liber IV\hfil} 

\voffset=lin 
\hoffset=lin 
\parindent=lem 

\def\lmarpar#l{\text{}\ffootnote{#l}/} 

\def\rmarpar#l{\text{}\gfootnote{#l}/} 
\emergencystretch40pt 

\cropsetup{24.5cm}{15.5cm}{l.5cm}{2.1cm} 


The file periph4. tex then inputs the above definitions, and proceeds with the main text: 


\input slhh 

\beginnumbering 

\pstart 

\rmarpar{741C} 

\noindent \text{Incipit Quartus $PERIFUSEWN$}'/, 
\lemma{incipit\ . $PERIFUSEWN$}\Bfootnote{{\it om.\ R}, 
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incipit quartus {\it M}}/ 

\pend 

\medskip 

\pstart 

\noindent \text{NVTRITOR}\lemma{$ANAKEFALIOSIS$}\Bfootnote{{\it 
FJP, lege\/} $<anakefala’iwsis$}/.\lmarpar{$ANAKEFALIOSIS$ 
NATVRARVM} Prima nostrae 

\text{Physiologiae}\lemma{physiologiae}\Bfootnote{phisiologiae 
{\it P}, physeologiae {\it R}}/ intentio praecipuaque mat\-e\-ria 
erat \text{quod}\Bfootnote{{\it p}.\ natura {\it transpA MR}}/ 
\text{$UPEROUSIADES$}\Bfootnote{{\it coddA Vtrum\/} 

$<uperousi’wdhs$ (hoc est superessentialis) natura {\it cum Gale 
(p.160) an\/} $<uperousi’oths$ (hoc est superessentialis natura) 
{\it cum Floss (PL 122,741C) intelligendum sit, ambigitur}}/ (hoc 
est superessentialis) natura sit causa creatrix existentium et 
non existentium omnium, a nullo creata, unum principium, una 
origo, unus et uniuersalis uniuersorum fons, a nullo manans, dum 
ab eo manant omnia, trinitas coessentialis in tribus substantiis, 
$ANARQ0S$ (hoc est sine principio), principium et finis, una 
bonitas, deus unus, \text{$0M0USI0S$}\Bfootnote{{\it codd., 
lege\/} $<omoo’usios$}/ \text{et}\lemma{{\bf et}}\Bfootnote{{\it 
R}\math“{\rm l}\math, {\it omA R}\math~{\rm 0}\math}/ 
$UPER0USI0S$ (id est coessentialis et superessentialis). Et, ut 
ait sanctus Epifanius, episcopus Constantiae Cypri, in 
\text{$AGKURATW$}\Bfootnote{anchurato {\it MR}}/ sermone \text{de 
fide}\Bfootnote{Glo\math\langle\math ssa\math\rangle\math: Ita 
enim uocatur sermo eius de fide $AGKURATOS$, id est procuratus 
{\it mg A add A FJP}}/: {\it Tria sancta, tria consancta, tria 
\text{agentia}\Bfootnote{actiua {\it MR}}/, tria coagentia, tria 
\text{formantia}\Bfootnote{formatiua {\it MR}}/, tria 
conformantia, tria \text{operantia}\Bfootnote{operatiua {\it 
MR}}/, tria cooperantia, tria subsistentia, tria}\rmarpar{742C} 
{\it consubsistentia sibi inuicem coexistentia. Trinitas haec 
sancta uocatur: tria existentia, una consonantia, una deitas 
\text{eiusdem}\Bfootnote{eiusdemque {\it M}}/ essentiae, 
\text{eiusdem uirtutis, eiusdem 

\text{subsistentiae}{\Bfootnote{substantiae {\it R}}}/}'/, 

\Bfootnote{{\it om.\ M}}/, similia \text{similiter}\Bfootnote{ex 
simili {\it MR}}/ aequalitatem gratiae operantur patris et filii 
et sancti spiritus. Quomodo autem \text{sunt}\Bfootnote{{\it om.\ 
M}}/, ipsis relinquitur docere: \text{‘Nemo enim nouit patrem 
nisi filius, neque filium nisi pater, et cuicumque filius 
reuelauerit’}\Afootnote{MatthA 11, 27}/; reuelatur autem per 
spiritum sanctum. Non ergo haec tria existentia aut ex ipso aut 
per ipsum aut ad ipsum in unoquoque digne intelliguntur, 
\math\mid\! R, 264"{\rm r}\! \mid\math\ sicut ipsa reuelantA/} 
$FWS, PUR, PNEUMA$ \text{(hoc est lux, ignis, 
spiritus)}\Afootnote{EPIPHANIVS, {\it Ancoratus\/} 67; PG~43, 

137C—140A; GCS 25, p.~82, 2—12}/. 

\pend 

\pstart 

Haec, ut dixi, ab Epifanio tradita, ut quisquis interrogatus quae 
tria et quid unum in sancta trinitate debeat credere, Sana fide 
\math\!\mid J, l~{\rm v}\!\mid\math\ respondere ualeat, aut ad 
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fidem accedens\rmarpar{743A} sic erudiatur. Et mihi uidetur 
spiritum pro calore posuisse, quasi dixisset in similitudine: 
lux, ignis, calor. Haec enim tria unius essentiae sunt. Sed cur 
lucem primo dixit, non est mirum. Ham et pater lux est et ignis 
et calor; et filius est lux, ignis, calor; et \text{spiritus 
sanctus}\Bfootnote{sanctus spiritus {\it R}}/ lux, ignis, calor. 
Illuminat enim pater, illuminat filius, illuminat spiritus 
sanctus: ex ipsis enim omnis scientia et sapientia donatur. 

\pend 

\endnumbering 

\bye 


A.5 Arabic text edition 

Recent developments in Klaus Lagally’s ArabTgX package have meant that now ArabTpX 
and EDM AC can work smoothly together. 41 This will be welcome news indeed to all frustrated 
editors of Arabic texts! 

As a taster, Klaus has kindly supplied Figure 6, a test page which shows off the joint 
capabilities of ArabTpX and EDMAC. 


A.6 Sanskrit text edition 

Finally, Figure 7 shows an example from an edition of a Sanskrit text on Paninian grammar 
that uses Frans Velthuis’s excellent Devanagarl font. 42 

I have not shown the input file for this because I almost never looked at it myself. The 
edition records a large number of variants, and there are frequent font and script changes. 
Preparing this purely manually would have been very error-prone. In fact, the text was 
prepared using a word processor (XyWrite III+) which had the ability to fold footnotes out 
of sight. I designed custom Indie fonts for my computer screen, so that I could see all the 
diacritical marks on accented characters as I typed. 

Font changes were invoked visually using the standard facilities of the word processor, so 
the perennial “missing closing brace” hardly ever arose. A short text filter program changed 
the word processor file into correctly tagged EDMAC input, and another filter program (provided 
by Velthuis) did some special processing on the Devanagari strings. This combination of tools 
proved very workable and no major problems were encountered. 

The following EDMAC customizations are typical of the sort of changes needed to use 
Sanskrit with the Devanagarl font: 


@dolmode3 '/, for the Devanagari pre-processor 
\input dnmacs.tex '/, special macros for Devanagari font 
\input edmac.doc 
*/. 

\makeatletter 

*/. 

\def\notefontsetup{\eightpoint\dnsmall\dn} 

\f ootparagraphfA} 

41 These changes are available in versions of ArabTgX from 2.08, March/April 1993. The ArabTgX system is 
available from its author’s institution (by anonymous ftp from ftp://ifi.informatik.uni-stuttgart.de/ 
pub/arabtex/ and from many other network sites. 

42 Now published as Dominik Wujastyk, Metarules of Paninian Grammar: The Vyadlyaparibhasavrtti critically 
edited with translation and commentary 2 vols. (Groningen: Forsten, 1993). 
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* t CJUJl 


A/ Jill I 

'**'* s <r? 

£ ^I^JaJl iltLi ^lol ^ 

. (jllja.9 Aj_/ : i_3y£l 

9 , 

' O w / 9 t O J ^ 0^» ' o 9 ' * 0-» o ^ 9 «* ^ JP' 

? £CL>I^ ^lj ^>LJJ £*^l^ia)lj : o alg^J.1 

. <jl*jU*>^ ‘CL^JI .>^LD : <3^1 

. Isji o .*—? cr * 

C ^ [^j^] [J*] [♦ oaJ <] «3Ji [_ S^aDI _] J-ii; [<J^il] ) 

* O x JO ^yj|' 9 Z ' 9 O' 

. LiJi : cJti^-ll 

? oLUaiLI i)L-i yj - * *3^1 

. jL1a)I i)L-i J*\ : t- J alg^J.i 


C Jt-i ^ut j 

— 9 ' ' ' Z -m 9 , os. 9,0, 

< oajaM ^ <-JlL ^ < illLiJl Jj 3yil 

Z ' 90 ' ' O-J. O 9 ' 99 O' l' ' 9 

. t—t^UasM ^J[L 10 

: ^_;liaii-T 3 3 v_3* 

^Jj ^V/l * 

O' ' O J*jp ' ' o J 

4^j J^ 1 * 

j-rA' («»] * 

O 9°J , 0 9 

J^^il jlyt * 15 

9 9'''' -. 9 Z ' 9°j 9 9 O' 

: ^ JL«aJ al cJzlg^J. 1 

- o ' O * O" ' 9 o' * i ' f?i 

. iilL/a.9 ^jA L£j C Ij 

9 0 9' O'" 9 ' o£ 

. i ^\'J3.Q.J I 4__j? jw I 


12 ^v/l sfe there is no <3^ after punctuation, (this is an ‘endnote’.) 


* From I _Ai«J oa/ ^ aJJJ I ^Xju J ^wLAH v t£)l, Tunis 1409 H, 1988 AD; p. 199 ff. 

f The text is reproduced twice, on pp. 199-200 and pp. 201-202, in slightly different versions. 


2 

4 

P 


9 ' ' O' 9 ' ' 0-. ' O ' 9 *■ O' ' O' ' 9 ' O' ' 9 ' '9 O' 

oLLjL! p. 201 2 L-w'i^ P- 3 c f■ P- 

9 Z ' 90 j 9 Z ' 90 j 9 ' ol 9 ' ot ' 9* ' ' 9> ' 9 9 

cJatj-il] : p. 201 5 l3 Ji I] : (3 Ji\ p. 201 5 _ _] p. 201 5 . OA**J <] . . CaUJ . . 

9 

O' ' 9 S '90S- 9 Z ' 90' 

. 201 5 om. p. 201 5 cf. p. 201 17 : <—iJi»^J.I] om. p. 202 


5 


• 'tjjA 



This whole line is badly corrupted! 


Figure 6: Arabic edition of some instructions for using a post office. 
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'TfWTPff^T 3 

Pft^l rTWf 511 h^ 5PTTsH*T I fT^t W9T ^Rf JRJ^T^n 

*r ^qPi fPr 1 

fhT mRhh 1 IdM^irhi 1 w cnr yPiPy^ 1 25 


t crfor^rr 11 $mi 

^r«r sTRp I 'MS-qR-lid P^P^<* fet dvPlPl I 3TW RkT 
fc^fW PretWRpT I era* 1 ^^Pl ^TFT: I 

t t ^fwrrfT s^KHiicyiyird spfw s^khi jj^wtct i 
W ^H^DR+lO 5M^T: I 3R^«hrdKHI T ^fa^fd I 30 
HH^HlPl fRt' FpT ^<t>K «bOfd PrsTWR^ 
dvr?)H'MId d U I J /l^ u lPiPi W %TT TfOTTTT ^d(d I W 

T UIHM4^u|i|dcHlld 3TT^I^d^l pTH^Pd I 3TW dl<t»lO 
W ^TTcTI HPdMld MPdMld I T dl^cl I WFV ^RP cRITfT 

'V 

y 1 y) Pi 1T y 1 yl Id 1 ^tt 1 f^cf fPr wr P^i ^ci 1 Hs-ci) ^ ^HsPi 1 35 

^r^T^rra% s^P tw^T^rr t *ptPt i ciw t d Pi ^ Pi 1 

NO 


23 om. /3 || J (an easy confusion in Sarada) || Xl^tiJ ° Pi a. c. 

25 a 27 dPT ?TR% om. a || ddd - (-4-) qff° B : qqq-'fddr'qff 0 

P 2 : q4q^d° J (i.e. om. qff) || P 2 a. c. || [?% 3BT P x /3] 

|| fer : IV d codd. (a very easy confusion in Sarada) : lid P 2 a. c. || fdd ' J : 
s-sd" codd. 28 iJ td : TTTdT Pi (1 (5" and W are not alike in Sarada, but q and 
d - are. So if an original 5" were transliterated as d~ and the sandhi then regularized, 
the MS readings would be accounted for) : dT^T J 29 d fr.11 B , P 2 a. c. 
II qflwrtfTJ (^Td^fW) II ^TT° : =FhTT° J || °3n^n¥tffT Abhyankar 
: '^l^iyifd J f} : °3rr [[-1-]] ... ^lyifd Pi (substitution of 3R) for 3TfT is 
not obviously explicable) 30 qi[ J B || dI J B : q^FTtlpT J (saut 
and metathesis) : d^lHI^I Pi a.c. (?) || t: ^dId j3] 31 dgdilt 

Abhyankar : dgdil { J, P 2 a. c. : ^HT Pi : dddil t P 2 : d'jdd t B (not 
obviously explicable) || Id ai 1 d IV Pi 32 'dd 'si Idd Id B 33 3Pp° J B 

35 ^ fqfqpSTfr : si N IV ’A d J : fqftl^ P x ] || *T ^fVfd - : d - fVfd - J 

36 [dT^% 3T*fr P] II fVdt S^rt a (i.e. om. q*) 

Figure 7: Sanskrit edition of a grammatical text. 
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\firstlinenum=l 

\def\variant#l#2{\text{#l}\Afootnote{#2}/} 

7 . 

7. Now we set up \select@lemmafont to recognize Sanskrit: 

7. 

\newfam\skt 7, \fam 8 (plain.tex defines 0—7; TeXbook p.351.) 

\def\san{\fam\skt \dn} 

\def\select@lemmaf ont#l I #2 I #3 I #41 #5 I #6 I #7 I {7. 

\ifcase#7 

\rm \or \rm \or \rm \or \rm 7. fams 0—3 

\or \it \or \sl \or \bf \or \tt 7. fams 4—7 
\or \san 7. Devanagari for \fam 8 

\else \rm 

\fi} 

7. 

\makeatother 

7. 

i And then the text: 

$ 7. for the Devanagari pre-processor 

\beginnumbering 

\san 

\autopar 

aasiidraajaa \variant{nalo}{ki.mcidanyat ka, kha} naama 
viirasenasuto baliil 

\endnumbering 

$ 7. for the Devanagari pre-processor 

\bye 


You may have noticed that in the apparatus of the Sanskrit edition shown in figure 7, the 
line numbers are printed only once, even if there are several variants on a line. Multiple notes 
to the same line are separated by a [| sign. We mentioned on p.42 above how, in principle, 
this could be done. Here is the modified version of \printlines that actually does it (the 
original is on p. 62 above). 


7. First, define the symbol that will print instead of a repeated line 
7. number: 

7. 

\def\notenumsep{$\parallel$} 

7. 

7. Now the macro which prints the line numbers for a note. 

7. It is modified here so that notes to the same line do not repeat 
7. the line number, but print a "II" instead. 

7. 

7. Just a reminder that the seven parameters of the 
i argument are the line numbers as stored in "\@nums": 

7. #1 the starting page, 

7. #2 line, and 

7. #3 subline numbers, followed by the 
7. #4 ending page, 

7, #5 line, and 

7. #6 subline numbers, and then the 
7. #7 font-family number for the lemma. 
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•/. 

'/, Although there’s no counter for the line number, because it’s always 
'/, printed, we define a counter that keeps track of the previously printed 
*/, line number, so that we can stop line numbers being repeated in the 
'/, notes if they are all the same. 

•/. 

\newcount\previous@note@number 

*/. 

*/, The beginning of the \printlines macro is just the same as the original 
'/, defined by EDMAC (q.v. for commentary): 

1 

\def\printlines#lI#2 I#3 I#41#5 I#6 I#7 I{\begingroup 
\@pnum=0 \@dash=0 
\ifbypage@ 

\ifnum#4=#l \else 
\@pnum=l 
\@dash=l 
\fi 
\f i 

\@elin=\@pnum 
\ifnum#2=#5 \else 
\@elin=l 
\@dash=l 
\f i 

\@ssub=0 

\ifnum#3=0 \else 
\@ssub=l 
\f i 

\@esl=0 

\ifnum#6=0 \else 
\ifnum#6=#3 

\@esl=\@elin 

\else 

\@esl=l 

\@dash=l 

\fi 

\fi 

*/. 

'/, Here come our modifications. We’re ready to print the various numbers, 

*/, based on our counter values, but the first thing we do is to compare the 
'/, current line number (parameter #2) with the last line number to have 
*/, been printed. If they are the same, we print the \notenumsep siglum; if 
'/, not, we go ahead and print the actual line number. (Note that this does 
'/, not cope with cases of multiple sub-line numbered notes to the same 
*/, line; more checks would be needed if that situation were likely to 
'/, arise.) 

\ifnum\previous@note@number = #2 

\ifodd\@elin '/, there is a different ending line number 

# 2 ’/. 

\else 

\notenumsep 

\fi 

\else 

\ifodd\@pnum #l\fullstop\fi 
#2'/, The (starting) line number 
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\f i 

\ifodd\@ssub \fullstop #3\fi 
\ifodd\@dash \endashchar\fi 
\if odd\<3pnum #4\fullstop\fi 
\ifodd\@elin #5\fi 

\ifodd\@esl \ifodd\@elin\fullstop\fi #6\fi 

l 

'/, Now we record the number that has been printed, for comparison 
'/, next time \printlines is called: 

*/. 

\global\previous@note@number=#2 

*/. 

\endgroup} 
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